diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
index d62b193..bba8683 100644
--- a/lisp/org-agenda.el
+++ b/lisp/org-agenda.el
@@ -2806,6 +2806,16 @@ the global options and expect it to be applied to the entire view.")
 	(org-agenda-filter-apply org-agenda-filter))
       )))
 
+(defun org-agenda-clock-goto ()
+  "Jump to the currently clocked in task within the agenda."
+  (interactive)
+  (let (pos)
+    (mapc (lambda (o)
+	    (if (eq (overlay-get o 'type) 'org-agenda-clocking)
+		(setq pos (overlay-start o))))
+	  (overlays-in (point-min) (point-max)))
+    (if pos (goto-char pos))))
+
 (defun org-agenda-mark-clocking-task ()
   "Mark the current clock entry in the agenda if it is present."
   (mapc (lambda (o)