Index: dashboard-tests.scm
==================================================================
--- dashboard-tests.scm
+++ dashboard-tests.scm
@@ -582,11 +582,11 @@
 							(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 "cleaning " rownum ":" colnum)
+							    ;; (debug:print-info 0 "cleaning " rownum ":" colnum)
 							    (let* ((next-row (if (eq? colnum 6) (+ rownum 1) rownum))
 								   (next-col (if (eq? colnum 6) 1 (+ colnum 1)))
 								   (mtrx-rc  (conc rownum ":" colnum))
 								   (curr-val (iup:attribute steps-matrix mtrx-rc)))
 							      ;; (debug:print-info 0 "cleaning " rownum ":" colnum " currval= " curr-val)