@@ -30,17 +30,10 @@
     (if (not (eof-object? (peek-char port)))
 	(loop (conc res (read-char port)))
 	res)))
 
 (define (process: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  '()))
@@ -55,17 +48,10 @@
 	     (close-input-port fhe)
 	     (close-output-port fho)
 	     result))))) ;; )
 
 (define (process:cmd-run-with-stderr-and-exitcode->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  '()))
@@ -81,11 +67,10 @@
 	     (close-input-port fhe)
 	     (close-output-port fho)
                (list result (if normalexit? exitstatus -1))))))))
 
 (define (process:cmd-run-proc-each-line cmd proc . params)
-  ;; (print "Called with cmd=" cmd ", proc=" proc ", params=" params)
   (handle-exceptions
    exn
    (begin
      (print "ERROR:  Failed to run command: " cmd " " (string-intersperse params " "))
      (debug:print 0 *default-log-port* " message: " ((condition-property-accessor 'exn 'message) exn))