@@ -58,11 +58,11 @@
 						    (val   (let* ((cmdres  (cmd-run->list cmd))
 								  (status  (cadr cmdres))
 								  (res     (car  cmdres)))
 							     (if (not (eq? status 0))
 								 (begin
-								   (print "ERROR: problem with " inl ", return code not 0")
+								   (debug:print 0 "ERROR: problem with " inl ", return code " status)
 								   (exit 1)))
 							     (if (null? res)
 								 ""
 								 (string-intersperse res " ")))))
 						(hash-table-set! res curr-section-name 
@@ -72,11 +72,11 @@
 	       (key-val-pr ( x key val      ) (let ((alist (hash-table-ref/default res curr-section-name '())))
 						(hash-table-set! res curr-section-name 
 								 (config:assoc-safe-add alist key val))
 								 ;; (append alist (list (list key val))))
 						(loop (read-line inp) curr-section-name)))
-	       (else (print "ERROR: problem parsing " path ",\n   \"" inl "\"")
+	       (else (debug:print 0 "ERROR: problem parsing " path ",\n   \"" inl "\"")
 		     (loop (read-line inp) curr-section-name))))))))
   
 (define (find-and-read-config fname)
   (let* ((curr-dir   (current-directory))
          (configinfo (find-config fname))