diff --git a/scsh/top.scm b/scsh/top.scm
index 7a736c7..af389f4 100644
--- a/scsh/top.scm
+++ b/scsh/top.scm
@@ -75,7 +75,7 @@
 	   (switches '())	; A list of handler thunks
 	   (top-entry #f)	; -t <entry>
 	   (need-script? #f))	; Found a -ds or -dm?
-    (display args    (current-output-port))
+;    (display args    (current-output-port))
     (if (pair? args)
 	(let ((arg  (car args))
 	      (args (cdr args)))
@@ -153,7 +153,7 @@
     (if (pair? switches)
 	(let ((switch (car switches))
 	      (switches (cdr switches)))
-	  (format #t "Doing switch ~a~%" switch)
+;	  (format #t "Doing switch ~a~%" switch)
 	  (cond
 
 	    ((equal? switch "-ds")
@@ -235,7 +235,12 @@
       (environment-for-commands)
        (lambda ()
        (begin
-	 (init-scsh-signal)
+	 (init-low-interrupt)
+	 (install-event-handlers!)
+	 (%install-scsh-handlers)
+	 (install-autoreaping)
+	 (install-env)
+
 	 ;; Have to do these before calling DO-SWITCHES, because actions
 	 ;; performed while processing the switches may use these guys.
 	 (set-command-line-args!