@@ -91,13 +91,15 @@
 (define (shell cmd)
   (let* ((output (cmd-run->list cmd))
 	 (res    (car output))
 	 (status (cadr output)))
     (if (equal? status 0)
-	(string-intersperse 
-	 res
-	 "\n")
+	(let ((outres (string-intersperse 
+		       res
+		       "\n")))
+	  (debug:print 4 "INFO: shell result:\n" outres)
+	  outres)
 	(begin
 	  (with-output-to-port (current-error-port)
 	    (print "ERROR: " cmd " returned bad exit code " status))
 	  ""))))
 
@@ -149,13 +151,15 @@
 							  (let ((alist (hash-table-ref/default res curr-section-name '()))
 								(val-proc (lambda ()
 									    (let* ((cmdres  (cmd-run->list cmd))
 										   (status  (cadr cmdres))
 										   (res     (car  cmdres)))
+									      (debug:print 4 "INFO: " inl "\n => " (string-intersperse res "\n"))
 									      (if (not (eq? status 0))
 										  (begin
-										    (debug:print 0 "ERROR: problem with " inl ", return code " status)
+										    (debug:print 0 "ERROR: problem with " inl ", return code " status
+												 " output: " cmdres)
 										    (exit 1)))
 									      (if (null? res)
 										  ""
 										  (string-intersperse res " "))))))
 							    (hash-table-set! res curr-section-name