diff --git a/worktimer.scm b/worktimer.scm
index 038ad21..7ec40b5 100755
--- a/worktimer.scm
+++ b/worktimer.scm
@@ -680,7 +680,7 @@
 (define (cmd-tasklist sheet deadlines archives . unused)
   (format #t "~{~a ~}\n" (record-path-list
                           (not-archived sheet archives)
-                          deadlines))
+                          (not-archived deadlines archives)))
   (values #f #f #f))
 
 ;;; Print deadlines