diff --git a/worktimer.scm b/worktimer.scm
index 002d082..8bf8777 100755
--- a/worktimer.scm
+++ b/worktimer.scm
@@ -463,7 +463,7 @@
   (unless (null? deadlines)
     (format #t "--- DEADLINES\n")
     (print-deadlines deadlines))
-  (unless (null? deadlines)
+  (unless (null? archives)
     (format #t "--- ARCHIVE\n")
     (print-archives archives))
   (unless (null? timesheet)