diff --git a/lisp/org-clock.el b/lisp/org-clock.el
index f157df7be..9e82db729 100644
--- a/lisp/org-clock.el
+++ b/lisp/org-clock.el
@@ -1423,7 +1423,7 @@ The time is always returned as UTC."
       (current-time))
      ((equal cmt "today")
       (setq org--msg-extra "showing today's task time.")
-      (let* ((dt (org-decode-time nil t))
+      (let* ((dt (decode-time))
 	     (hour (nth 2 dt))
 	     (day (nth 3 dt)))
 	(if (< hour org-extend-today-until) (setf (nth 3 dt) (1- day)))