diff --git a/lisp/org-clock.el b/lisp/org-clock.el
index 17fccae..8f2f353 100644
--- a/lisp/org-clock.el
+++ b/lisp/org-clock.el
@@ -420,6 +420,7 @@ of a different task.")
 	   (if (fboundp 'int-to-char) (setf (car s) (int-to-char (car s))))
 	   (push s sel-list)))
        org-clock-history)
+      (run-hooks 'org-clock-select-task-hook)
       (org-fit-window-to-buffer)
       (message (or prompt "Select task for clocking:"))
       (setq rpl (read-char-exclusive))