diff --git a/scsh/scsh-package.scm b/scsh/scsh-package.scm
index cf935f5..33c080b 100644
--- a/scsh/scsh-package.scm
+++ b/scsh/scsh-package.scm
@@ -334,6 +334,7 @@
   (open command-processor
 	command-levels          ; with-new-session
 	conditions
+        display-conditions
 	ensures-loaded
 	environments
 	error-package
diff --git a/scsh/top.scm b/scsh/top.scm
index 008d511..8da44a4 100644
--- a/scsh/top.scm
+++ b/scsh/top.scm
@@ -347,9 +347,10 @@
 	   (more)
 	   (with-handler
 	    (lambda (c m)
-	      (scheme-exit-now 0))
+	      (scheme-exit-now 1))
 	    (lambda ()
-              (scsh-exit-now 0)))))
+              (display-condition cond (current-error-port))
+              (scsh-exit-now 1)))))
      (lambda ()
        (with-scsh-initialized
 	(not term-switch) context args