Index: launch.scm
==================================================================
--- launch.scm
+++ launch.scm
@@ -605,15 +605,15 @@
 					  (list "MT_ITEM_INFO" (conc itemdat)) 
 					  (list "MT_RUNNAME"   runname)
 					  (list "MT_TARGET"    mt_target)
 					  )
 				    itemdat)))
-	   (launch-results (apply cmd-run-proc-each-line
+	   (launch-results (apply cmd-run-with-stderr->list ;; cmd-run-proc-each-line
 				  (if useshell
 				      (string-intersperse fullcmd " ")
 				      (car fullcmd))
-				  print
+				  ;; conc
 				  (if useshell
 				      '()
 				      (cdr fullcmd))))) ;;  launcher fullcmd)));; (apply cmd-run-proc-each-line launcher print fullcmd))) ;; (cmd-run->list fullcmd))
       (with-output-to-file "mt_launch.log"
 	(lambda ()

Index: process.scm
==================================================================
--- process.scm
+++ process.scm
@@ -13,10 +13,41 @@
 ;; Process convience utils
 ;;======================================================================
 
 (declare (unit process))
 (declare (uses common))
+
+(define (conservative-read port)
+  (let loop ((res ""))
+    (if (not (eof-object? (peek-char port)))
+	(loop (conc res (read-char port)))
+	res)))
+    
+(define (cmd-run-with-stderr->list cmd . params)
+  ;; (print "Called with cmd=" cmd ", proc=" proc ", params=" params)
+;;  (handle-exceptions
+;;   exn
+;;   (begin
+;;     (print "ERROR:  Failed to run command: " cmd " " (string-intersperse params " "))
+;;     (print "       " ((condition-property-accessor 'exn 'message) exn))
+;;     #f)
+   (let-values (((fh fho pid fhe) (if (null? params)
+				      (process* cmd)
+				      (process* cmd params))))
+       (let loop ((curr (read-line fh))
+		  (result  '()))
+	 (let ((errstr (conservative-read fhe)))
+	   (if (not (string=? errstr ""))
+	       (set! result (append result (list errstr)))))
+       (if (not (eof-object? curr))
+	   (loop (read-line fh)
+		 (append result (list curr)))
+	   (begin
+	     (close-input-port fh)
+	     (close-input-port fhe)
+	     (close-output-port fho)
+	     result))))) ;; )
 
 (define (cmd-run-proc-each-line cmd proc . params)
   ;; (print "Called with cmd=" cmd ", proc=" proc ", params=" params)
   (handle-exceptions
    exn
@@ -24,17 +55,18 @@
      (print "ERROR:  Failed to run command: " cmd " " (string-intersperse params " "))
      #f)
    (let-values (((fh fho pid) (if (null? params)
 				  (process cmd)
 				  (process cmd params))))
-     (let loop ((curr (read-line fh))
+       (let loop ((curr (read-line fh))
 		(result  '()))
        (if (not (eof-object? curr))
 	   (loop (read-line fh)
 		 (append result (list (proc curr))))
 	   (begin
 	     (close-input-port fh)
+	     (close-input-port fhe)
 	     (close-output-port fho)
 	     result))))))
 
 (define (cmd-run-proc-each-line-alt cmd proc)
   (let* ((fh (open-input-pipe cmd))

Index: tests/tests.scm
==================================================================
--- tests/tests.scm
+++ tests/tests.scm
@@ -1,6 +1,7 @@
 (require-extension test)
+(require-extension regex)
 
 (define test-work-dir (current-directory))
 
 ;; read in all the _record files
 (let ((files (glob "*_records.scm")))
@@ -7,10 +8,22 @@
   (for-each
    (lambda (file)
      (print "Loading " file)
      (load file))
    files))
+
+;;======================================================================
+;; P R O C E S S E S
+;;======================================================================
+
+(test "cmd-run-with-stderr->list" '("No such file or directory")
+      (let ((reslst (cmd-run-with-stderr->list "ls" "/tmp/ihadbetternotexist")))
+	(string-search (regexp "No such file or directory")(car reslst))))
+
+;;======================================================================
+;; C O N F I G   F I L E S 
+;;======================================================================
 
 (define conffile #f)
 (test "Read a config" #t (hash-table? (read-config "test.config" #f #f)))
 (test "Read a config that doesn't exist" #t (hash-table? (read-config "nada.config" #f #f)))