@@ -17,11 +17,11 @@
 (define (process-itemlist-try1 curritemkey itemlist)
   (let loop ((hed (car itemlist))
 	     (tal (cdr itemlist)))
     (if (null? tal)
 	(for-each (lambda (item)
-		    (print "curritemkey: " (append curritemkey (list item))))
+		    (debug:print 6 "curritemkey: " (append curritemkey (list item))))
 		  (cadr hed))
 	(begin
 	  (for-each (lambda (item)
 		      (process-itemlist (append curritemkey (list item)) tal))
 		    (cadr hed))
@@ -81,11 +81,11 @@
 			(rowdat  (cadr row)))
 		    (set! item (append item 
 				       (list 
 					(if (< indx (length rowdat))
 					    (let ((new (list rowname (list-ref rowdat indx))))
-					      ;; (print "New: " new)
+					      ;; (debug:print 0 "New: " new)
 					      (set! elflag #t)
 					      new
 					      ) ;; i.e. had at least on legit value to use
 					    (list rowname "-")))))))
 		newlst)