diff --git a/scheme-core/system.scm b/scheme-core/system.scm
index ef796ee..560f469 100644
--- a/scheme-core/system.scm
+++ b/scheme-core/system.scm
@@ -1126,14 +1126,17 @@
               string<? symbol->string))))
 
 (define (apropos . args)
-  (for-each (λ (sym)
-              (displayln
-               (string-append
-                (let ((val (symbol-value sym)))
-                  (if (procedure? val) "procedure" "variable "))
-                "  "
-                (symbol->string sym))))
-            (apply apropos-list args)))
+  (let ((syms (apply apropos-list args)))
+    (and (not (null? syms))
+         (for-each (λ (sym)
+                     (displayln
+                      (string-append
+                       (let ((val (symbol-value sym)))
+                         (if (procedure? val) "procedure" "variable "))
+                       "  "
+                       (symbol->string sym))))
+                   syms)
+         #t)))
 
 (define-macro (help . args)
   `(apply help* ',args))