Index: tests.scm
==================================================================
--- tests.scm
+++ tests.scm
@@ -1772,11 +1772,11 @@
 				  (if (null? all-waitons)
 				      (list (conc "   \"" hed "\" [shape=box];"))
 				      (map (lambda (waiton)
 					     (conc "   \"" waiton "\" -> \"" hed "\" [shape=box];"))
 					   all-waitons)))))
-	    (debug:print 0 *default-log-port* "For test "hed" got "all-waitons)
+	    ;; (debug:print 0 *default-log-port* "For test "hed" got "all-waitons)
 	    (if (null? tal)
 		(append newres (list "}"))
 		(loop (car tal)(cdr tal) newres)
 		))))))