diff --git a/site-lisp/db-org.el b/site-lisp/db-org.el
index db47909..f232a54 100644
--- a/site-lisp/db-org.el
+++ b/site-lisp/db-org.el
@@ -309,12 +309,13 @@ In ~%s~:
         (insert org-clock-heading)))))
 
 (defun db/org-update-frame-title-with-current-clock ()
-  "Set the frametitle of the current frame to the headline of the
+  "Set the title of all active frames to the headline of the
   current task."
   (interactive)
   (let ((clock-buffer (marker-buffer org-clock-marker)))
     (when clock-buffer
-      (modify-frame-parameters nil `((name . , org-clock-heading))))))
+      (dolist (frame (frame-list))
+        (modify-frame-parameters frame `((name . , org-clock-heading)))))))
 
 
 ;;; Fixes