diff --git a/scsh/top.scm b/scsh/top.scm
index 4ae6c7b..008d511 100644
--- a/scsh/top.scm
+++ b/scsh/top.scm
@@ -347,10 +347,9 @@
 	   (more)
 	   (with-handler
 	    (lambda (c m)
-	      (scheme-exit-now 1))
+	      (scheme-exit-now 0))
 	    (lambda ()
-	      (call-exit-hooks-and-narrow (lambda () #t))
-	      (more)))))
+              (scsh-exit-now 0)))))
      (lambda ()
        (with-scsh-initialized
 	(not term-switch) context args