diff --git a/scsh/top.scm b/scsh/top.scm
index 3ceec60..4610216 100644
--- a/scsh/top.scm
+++ b/scsh/top.scm
@@ -408,7 +408,7 @@
      (call-narrowed-exit-hooks)
      (scheme-exit-now status))))
 
-(add-narrowed-exit-hook! flush-all-ports)
+(add-narrowed-exit-hook! flush-all-ports-no-threads)
 
 (define (load-library-file file lib-dirs script-file)
 ; (format (error-output-port) "Load-library-file: ~a ~s\n" file lib-dirs)