@@ -441,11 +441,11 @@
 	       (logfile       "/this/dir/better/not/exist")
 	       (rundir        (if testdat 
 				  (db:test-get-rundir testdat)
 				  logfile))
 	       ;; (testdat-path  (conc rundir "/testdat.db")) ;; this gets recalculated until found 
-	       (teststeps     (if testdat (tests:get-compressed-steps #f run-id test-id) '()))
+	       (teststeps     (if testdat (tests:get-compressed-steps run-id test-id) '()))
 	       (testfullname  (if testdat (db:test-get-fullname testdat) "Gathering data ..."))
 	       (testname      (if testdat (db:test-get-testname testdat) "n/a"))
 	       ;; (tests:get-testconfig testdat testname 'return-procs))
 	       (testmeta      (if testdat 
 				  (let ((tm (rmt:testmeta-get-record testname)))
@@ -517,11 +517,11 @@
 						     (rmt:get-test-info-by-id run-id test-id )))))
 			       ;; (debug:print-info 0 "need-update= " need-update " curr-mod-time = " curr-mod-time)
 			       (cond
 				((and need-update newtestdat)
 				 (set! testdat newtestdat)
-				 (set! teststeps    (tests:get-compressed-steps #f run-id test-id))
+				 (set! teststeps    (tests:get-compressed-steps run-id test-id))
 				 (set! logfile      (conc (db:test-get-rundir testdat) "/" (db:test-get-final_logf testdat)))
 				 (set! rundir       ;; (filedb:get-path *fdb* 
 				       (db:test-get-rundir testdat)) ;; )
 				 (set! testfullname (db:test-get-fullname testdat))
 				 ;; (debug:print 0 "INFO: teststeps=" (intersperse teststeps "\n    "))
@@ -693,13 +693,13 @@
 				       ;; Replace here with matrix
 				       (let ((steps-matrix (iup:matrix
 							    #:font   "Courier New, -8"
 							    #:expand "YES"
 							    #:scrollbar "YES"
-							    #:numcol 6
-							    #:numlin 30
-							    #:numcol-visible 6
+							    #:numcol 7
+							    #:numlin 100
+							    #:numcol-visible 7
 							    #:numlin-visible 5
 							    #:click-cb (lambda (obj lin col status)
 									 ;; (if (equal? col 6)
 									 (let* ((mtrx-rc (conc lin ":" 6))
 										(fname   (iup:attribute obj mtrx-rc))) ;; col))))
@@ -720,10 +720,11 @@
 					 (iup:attribute-set! steps-matrix "WIDTH3" "50")
 					 (iup:attribute-set! steps-matrix "0:4" "Status")
 					 (iup:attribute-set! steps-matrix "WIDTH4" "50")
 					 (iup:attribute-set! steps-matrix "0:5" "Duration")
 					 (iup:attribute-set! steps-matrix "0:6" "Log File")
+					 (iup:attribute-set! steps-matrix "0:7" "Comment")
 					 (iup:attribute-set! steps-matrix "ALIGNMENT1" "ALEFT")
 					 ;; (iup:attribute-set! steps-matrix "FIXTOTEXT" "C1")
 					 (iup:attribute-set! steps-matrix "RESIZEMATRIX" "YES")
 					 (let ((proc
 						(lambda (testdat)