@@ -165,11 +165,11 @@
 	(let ((outres (string-intersperse 
 		       res
 		       "\n")))
 	  (debug:print-info 4 *default-log-port* "shell result:\n" outres)
 	  outres)
-	(begin
+	(begin ;; why is this printing to error-port and not using debug:print? -mrw-
 	  (with-output-to-port (current-error-port)
 	    (lambda ()
 	      (print "ERROR: " cmd " returned bad exit code " status)))
 	  ""))))