@@ -902,16 +902,16 @@
 	(begin
 	  ;; we are going to speculatively clear rows until we find a row that is already cleared
 	  (let loop ((rownum  (+ max-row 1))
 		     (colnum  0)
 		     (deleted #f))
-	    ;; (debug:print-info 0 #f "cleaning " rownum ":" colnum)
+	    ;; (debug:print-info 0 *default-log-port* "cleaning " rownum ":" colnum)
 	    (let* ((next-row (if (eq? colnum max-col) (+ rownum 1) rownum))
 		   (next-col (if (eq? colnum max-col) 1 (+ colnum 1)))
 		   (mtrx-rc  (conc rownum ":" colnum))
 		   (curr-val (iup:attribute steps-matrix mtrx-rc)))
-	      ;; (debug:print-info 0 #f "cleaning " rownum ":" colnum " currval= " curr-val)
+	      ;; (debug:print-info 0 *default-log-port* "cleaning " rownum ":" colnum " currval= " curr-val)
 	      (if (and (string? curr-val)
 		       (not (equal? curr-val "")))
 		  (begin
 		    (iup:attribute-set! steps-matrix mtrx-rc "")
 		    (loop next-row next-col #t))