diff --git a/scsh/top.scm b/scsh/top.scm
index 8211893..fb9df12 100644
--- a/scsh/top.scm
+++ b/scsh/top.scm
@@ -233,8 +233,8 @@
  			(current-error-port)
  			args
  			term-switch)
-     (with-interaction-environment     ;useless ?????????
-      (environment-for-commands)
+     (with-interaction-environment     
+      (user-environment)
        (lambda ()
        (begin
 	 (init-low-interrupt)