Index: dcommon.scm
==================================================================
--- dcommon.scm
+++ dcommon.scm
@@ -637,11 +637,11 @@
 	(iup:attribute-set! stats-matrix "CLEARVALUE" "CONTENTS")
 	(iup:attribute-set! stats-matrix "NUMCOL" max-col )
 	(iup:attribute-set! stats-matrix "NUMLIN" (if (< max-row max-visible) max-visible max-row)) ;; min of 20
 	(iup:attribute-set! stats-matrix "NUMCOL_VISIBLE" max-col-vis)
 	(iup:attribute-set! stats-matrix "NUMLIN_VISIBLE" (if (> max-row max-visible) max-visible max-row))
-	(print "row-indices: " row-indices " col-indices: " col-indices)
+	;;(print "row-indices: " row-indices " col-indices: " col-indices)
 	;; Row labels
 	(for-each (lambda (ind)
 		    (let* ((name (car ind))
 			   (num  (cadr ind))
 			   (key  (conc num ":0")))