@@ -991,11 +991,14 @@
 			 (logprofile (args:get-arg "-logpro"))
 			 (logfile    (conc stepname ".log"))
 			 (cmd        (if (null? remargs) #f (car remargs)))
 			 (params     (if cmd (cdr remargs) '()))
 			 (exitstat   #f)
-			 (shell      (last (string-split (get-environment-variable "SHELL") "/")))
+			 (shell      (let ((sh (get-environment-variable "SHELL") ))
+				       (if sh 
+					   (last (string-split sh "/"))
+					   "bash")))
 			 (redir      (case (string->symbol shell)
 				       ((tcsh csh ksh)    ">&")
 				       ((zsh bash sh ash) "2>&1 >")
 				       (else ">&")))
 			 (fullcmd    (conc "(" (string-intersperse