@@ -384,18 +384,20 @@
 			 (let* ((run-stats    (mt:get-run-stats))
 				(indices      (common:sparse-list-generate-index run-stats)) ;;  proc: set-cell))
 				(row-indices  (car indices))
 				(col-indices  (cadr indices))
 				(max-row      (if (null? row-indices) 1 (apply max (map cadr row-indices))))
-				(max-col      (if (null? col-indices) 1 (apply max (map cadr col-indices))))
+				(max-col      (if (null? col-indices) 1 
+						  (apply max (map cadr col-indices))))
 				(max-visible  (max (- *num-tests* 15) 3))
+				(max-col-vis  (if (> max-col 10) 10 max-col))
 				(numrows      1)
 				(numcols      1))
 			   (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)
+			   (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))
 
 			   ;; Row labels
 			   (for-each (lambda (ind)
 				       (let* ((name (car ind))