diff --git a/ice-9/threads.scm b/ice-9/threads.scm
index 42dc38d96..fbbb029c7 100644
--- a/ice-9/threads.scm
+++ b/ice-9/threads.scm
@@ -85,7 +85,8 @@
           (display tag p)
           (display ": " p)
           (display args p)
-          (newline p)))))
+          (newline p)))
+    #f))
 
 ; --- MACROS -------------------------------------------------------