diff --git a/src/parser.lisp b/src/parser.lisp
index 6a0a002..1beb789 100644
--- a/src/parser.lisp
+++ b/src/parser.lisp
@@ -2365,14 +2365,11 @@ load database
 
       ;; maybe duplicate the summary to a file
       (let* ((summary-stream (when summary-pathname
-                              (open summary-pathname
-                                    :direction :output
-                                    :if-exists :rename
-                                    :if-does-not-exist :create)))
-             (*report-stream* (apply
-                               #'make-broadcast-stream
-                               (remove-if #'null (list *terminal-io*
-                                                       summary-stream)))))
+                               (open summary-pathname
+                                     :direction :output
+                                     :if-exists :rename
+                                     :if-does-not-exist :create)))
+             (*report-stream* (or summary-stream *terminal-io*)))
         (unwind-protect
              ;; run the commands
              (loop for func in funcs do (funcall func))