Index: dashboard.scm
==================================================================
--- dashboard.scm
+++ dashboard.scm
@@ -2015,10 +2015,12 @@
                     (iup:attribute-set! run-matrix "NUMCOL" max-col ))
 
                 (let ((effective-max-row (if (< max-row max-visible) max-visible max-row)))
                   (if (> effective-max-row (string->number (iup:attribute run-matrix "NUMLIN")))
                       (iup:attribute-set! run-matrix "NUMLIN" effective-max-row )))
+
+		(iup:attribute-set! run-matrix "WIDTHDEF" 16)
                 
                 ;; Row labels
                 (for-each (lambda (ind)
                             (let* ((name (car ind))
                                    (num  (cadr ind))
@@ -2054,20 +2056,20 @@
                                     (iup:attribute-set! run-matrix key (cadr value))
                                     (iup:attribute-set! run-matrix (conc "BGCOLOR" key) (car value))))))
                           matrix-content)
                 
                 ;; Col labels - do after setting Cell contents so they are accounted for in the size calc.
-                
+
                 (for-each (lambda (ind)
                             (let* ((name (car ind))
                                    (num  (cadr ind))
                                    (key  (conc "0:" num)))
                               (if (not (equal? (iup:attribute run-matrix key) name))
                                   (begin
                                     (set! changed #t)
-                                    (iup:attribute-set! run-matrix key name)
-                                    (if (<= num max-col)
+                                    (iup:attribute-set! run-matrix key name) ;; (list->string (intersperse (string->list name) #\newline))) ;; name)
+				    #;(if (<= num max-col)
                                         (iup:attribute-set! run-matrix "FITTOTEXT" (conc "C" num)))))))
                           col-indices)
                 
                 (if (and (eq? pass-num 0) changed)
                     (loop 1 #t)) ;; force second pass due to column labels changing