diff --git a/scsh/top.scm b/scsh/top.scm
index 54c4932..f4af4dd 100644
--- a/scsh/top.scm
+++ b/scsh/top.scm
@@ -356,13 +356,13 @@
 		  (let ((result (eval (read-exactly-one-sexp-from-string term-val)
 				      (interaction-environment))))
 		    (call-exit-hooks)
-		    (scheme-exit-now result)))
+		    (scheme-exit-now 0)))
 		 
 		 (top-entry		; There was a -e <entry>.
 		  (let ((result ((eval top-entry (interaction-environment))
 				    (command-line))))
 		    (call-exit-hooks)
-		    (scheme-exit-now result)))
+		    (scheme-exit-now 0)))
 		 
 		     ;; Otherwise, the script executed as it loaded,
 		 ;; so we're done.