@@ -45,26 +45,26 @@
 (define (item-assoc->item-list itemsdat)
   (if (and itemsdat (not (null? itemsdat)))
       (let ((itemlst (filter (lambda (x)
 			       (list? x))
 			     (map (lambda (x)
-				    (debug:print 6 #f "item-assoc->item-list x: " x)
+				    (debug:print 6 *default-log-port* "item-assoc->item-list x: " x)
 				    (if (< (length x) 2)
 					(begin
-					  (debug:print 0 #f "ERROR: malformed items spec " (string-intersperse x " "))
+					  (debug:print 0 *default-log-port* "ERROR: malformed items spec " (string-intersperse x " "))
 					  (list (car x)'()))
 					(let* ((name (car x))
 					       (items (cadr x))
 					       (ilist (list name (if (string? items)
 								     (string-split items)
 								     '()))))
 					  (if (null? ilist)
-					      (debug:print 0 #f "ERROR: No items specified for " name))
+					      (debug:print 0 *default-log-port* "ERROR: No items specified for " name))
 					  ilist)))
 				  itemsdat))))
 	(let ((debuglevel 5))
-	  (debug:print 5 #f "item-assoc->item-list: itemsdat => itemlst ")
+	  (debug:print 5 *default-log-port* "item-assoc->item-list: itemsdat => itemlst ")
 	  (if (debug:debug-mode 5)
 	      (begin
 		(pp itemsdat)
 		(print " => ")
 		(pp itemlst))))
@@ -93,11 +93,11 @@
 			(rowdat  (cadr row)))
 		    (set! item (append item 
 				       (list 
 					(if (< indx (length rowdat))
 					    (let ((new (list rowname (list-ref rowdat indx))))
-					      ;; (debug:print 0 #f "New: " new)
+					      ;; (debug:print 0 *default-log-port* "New: " new)
 					      (set! elflag #t)
 					      new
 					      ) ;; i.e. had at least on legit value to use
 					    (list rowname "-")))))))
 		newlst)
@@ -121,11 +121,11 @@
 (define (items:get-items-from-config tconfig)
   (let* ((have-items  (hash-table-ref/default tconfig "items"      #f))
 	 (have-itable (hash-table-ref/default tconfig "itemstable" #f))
 	 (items       (hash-table-ref/default tconfig "items"      '()))
 	 (itemstable  (hash-table-ref/default tconfig "itemstable" '())))
-    (debug:print 5 #f "items: " items " itemstable: " itemstable)
+    (debug:print 5 *default-log-port* "items: " items " itemstable: " itemstable)
     (set! items (map (lambda (item)
 		       (if (procedure? (cadr item))
 			   (list (car item)((cadr item)))  ;; evaluate the proc
 			   item))
 		     items))
@@ -132,16 +132,16 @@
     (set! itemstable (map (lambda (item)
 			    (if (procedure? (cadr item))
 				(list (car item)((cadr item)))  ;; evaluate the proc
 				item))
 			  itemstable))
-    (if (and have-items  (null? items))     (debug:print 0 #f "ERROR: [items] section in testconfig but no entries defined"))
-    (if (and have-itable (null? itemstable))(debug:print 0 #f "ERROR: [itemstable] section in testconfig but no entries defined"))
+    (if (and have-items  (null? items))     (debug:print 0 *default-log-port* "ERROR: [items] section in testconfig but no entries defined"))
+    (if (and have-itable (null? itemstable))(debug:print 0 *default-log-port* "ERROR: [itemstable] section in testconfig but no entries defined"))
     (if (or (not (null? items))(not (null? itemstable)))
 	(append (item-assoc->item-list items)
 		(item-table->item-list itemstable))
 	'(()))))
 
 ;; (pp (item-assoc->item-list itemdat))