--- scheme/env/orig-command.scm	Sun May 20 04:02:34 2001
+++ scheme/env/command.scm	Wed Nov 14 11:51:11 2001
@@ -116,6 +116,8 @@
 	       ; perhaps this should use scheme-exit-now, but I'm
 	       ; worried that it is what handles normal EOF. (HCC)
 	       (exit-command-processor (lambda () 0)))
+; Only sadists put "do you really want to do that?" blockers into programs...
+	      (#t (exit-command-processor (lambda () 1)))
 	      ((y-or-n? "Exit Scheme 48" #t)
 	       (exit-command-processor (lambda () 1)))
 	      (else