@@ -105,11 +105,12 @@
 		       "\n")))
 	  (debug:print-info 4 "shell result:\n" outres)
 	  outres)
 	(begin
 	  (with-output-to-port (current-error-port)
-	    (print "ERROR: " cmd " returned bad exit code " status))
+	    (lambda ()
+	      (print "ERROR: " cmd " returned bad exit code " status)))
 	  ""))))
 
 ;; Lookup a value in runconfigs based on -reqtarg or -target
 (define (runconfigs-get config var)
   (let ((targ (or (args:get-arg "-reqtarg")(args:get-arg "-target"))))
@@ -342,11 +343,11 @@
 		   (res '()))
 	  (if (eof-object? inl)
 	      (begin
 		(close-input-port inp)
 		(reverse res))
-	      (loop (read-line inp)(cons inl)))))
+	      (loop (read-line inp)(cons inl res)))))
       '()))
 
 ;;======================================================================
 ;; Write a config
 ;;   0. Given a refererence data structure "indat"