Ensure point is on current clock when setting default task

Not sure whether this is the case otherwise.

Also add output when the default task is set, to see when it's set
accidentally.

site-lisp/db-org.el

@@ -512,7 +512,9 @@ Work task and home task are determined by the current values of
   (let ((current-id (org-id-get org-clock-marker)))
     (when (member current-id (list org-working-task-id
                                    org-home-task-id))
-      (org-clock-mark-default-task))))
+      (org-with-point-at org-clock-marker
+        (message "Setting default task to: %s" (org-link-display-format (org-entry-get (point) "ITEM")))
+        (org-clock-mark-default-task)))))
 
 
 ;;; Workload Reports