@@ -2764,65 +2764,83 @@
 	 (cell-width      (dboard:tabdat-runs-cell-width runs-dat)))
     ;; controls (along bottom)
     ;; (set! controls (dboard:make-controls commondat runs-dat))
     
     ;; create the left most column for the run key names and the test names 
-    (set! lftlst (list (iup:hbox
-			(iup:label) ;; (iup:valuator)
-			(apply iup:vbox 
-			       (map (lambda (x)		
-				      (let ((res (iup:hbox #:expand "HORIZONTAL"
-							   (iup:label x #:size (conc 40 btn-height) #:fontsize btn-fontsz #:expand "NO") ;; "HORIZONTAL")
-							   (iup:textbox #:size (conc 35 btn-height) #:fontsize btn-fontsz #:value "%" #:expand "NO" ;; "HORIZONTAL"
-									#:action (lambda (obj unk val)
-										   ;; each field (field name is "x" var) live updates
-										   ;; the search filter as it is typed
-										   (dboard:tabdat-target-set! runs-dat #f) ;; ensure the fields text boxes are used and not the info from the tree
-										   (mark-for-update runs-dat)
-										   (update-search commondat runs-dat x val))))))
-					(set! i (+ i 1))
-					res))
-				    keynames)))))
+    (set! lftlst
+	  (list (iup:hbox
+		 (iup:label) ;; (iup:valuator)
+		 (apply iup:vbox 
+			(map (lambda (x)		
+			       (let ((res (iup:hbox
+					   #:expand "HORIZONTAL"
+					   (iup:label x
+						      #:size (conc 40 btn-height)
+						      #:fontsize btn-fontsz
+						      #:expand "NO") ;; "HORIZONTAL")
+					   (iup:textbox
+					    #:size (conc 35 btn-height)
+					    #:fontsize btn-fontsz
+					    #:value "%"
+					    #:expand "NO" ;; "HORIZONTAL"
+					    #:action (lambda (obj unk val)
+						       ;; each field
+						       ;; (field name is "x" var) live updates
+						       ;; the search filter as it is typed
+						       (dboard:tabdat-target-set! runs-dat #f)
+						       ;; ensure fields text boxes are used
+						       ;; and not the info from the tree
+						       (mark-for-update runs-dat)
+						       (update-search commondat runs-dat x val))))))
+				 (set! i (+ i 1))
+				 res))
+			     keynames)))))
     (let loop ((testnum  0)
 	       (res      '()))
       (cond
        ((>= testnum ntests)
 	;; now lftlst will be an hbox with the test keys and the test name labels
 	(set! lftlst
-	      (append lftlst
-		      (list (iup:hbox
-			     #:expand "HORIZONTAL"
-			     (iup:valuator
-			      #:valuechanged_cb (lambda (obj)
-						  (let ((val (string->number (iup:attribute obj "VALUE")))
-							(oldmax  (string->number (iup:attribute obj "MAX")))
-							(newmax  (* 10 (length (dboard:tabdat-all-test-names runs-dat)))))
-						    (dboard:commondat-please-update-set! commondat #t)
-						    (dboard:tabdat-start-test-offset-set! runs-dat (inexact->exact (round (/ val 10))))
-						    (debug:print 6 *default-log-port* "(dboard:tabdat-start-test-offset runs-dat) "
-								 (dboard:tabdat-start-test-offset runs-dat) " val: " val
-								 " newmax: " newmax " oldmax: " oldmax)
-						    (if (< val 10)
-							(iup:attribute-set! obj "MAX" newmax))
-						    ))
-			      #:expand "VERTICAL" 
-			      #:orientation "VERTICAL"
-			      #:min 0
-			      #:step 0.01)
-			     (apply iup:vbox (reverse res)))))))
+	      (append
+	       lftlst
+	       (list
+		(iup:hbox
+		 #:expand "HORIZONTAL"
+		 (iup:valuator
+		  #:valuechanged_cb
+		  (lambda (obj)
+		    (let ((val (string->number (iup:attribute obj "VALUE")))
+			  (oldmax  (string->number (iup:attribute obj "MAX")))
+			  (newmax  (* 10 (length (dboard:tabdat-all-test-names runs-dat)))))
+		      (dboard:commondat-please-update-set! commondat #t)
+		      (dboard:tabdat-start-test-offset-set! runs-dat
+							    (inexact->exact (round (/ val 10))))
+		      (debug:print 6 *default-log-port*
+				   "(dboard:tabdat-start-test-offset runs-dat) "
+				   (dboard:tabdat-start-test-offset runs-dat) " val: " val
+				   " newmax: " newmax " oldmax: " oldmax)
+		      (if (< val 10)
+			  (iup:attribute-set! obj "MAX" newmax))
+		      ))
+		  #:expand "VERTICAL" 
+		  #:orientation "VERTICAL"
+		  #:min 0
+		  #:step 0.01)
+		 (apply iup:vbox (reverse res)))))))
        (else
-	(let ((labl  (iup:button "" ;; the testname labels
-				 #:flat "YES" 
-				 #:alignment "ALEFT"
+	(let ((labl  (iup:button
+		      "" ;; the testname labels
+		      #:flat "YES" 
+		      #:alignment "ALEFT"
 					; #:image img1
 					; #:impress img2
-				 #:size  (conc cell-width btn-height)
-				 #:expand  "HORIZONTAL"
-				 #:fontsize btn-fontsz
-				 #:action (lambda (obj)
-					    (mark-for-update runs-dat)
-					    (toggle-hide testnum (dboard:commondat-uidat commondat)))))) ;; (iup:attribute obj "TITLE"))))
+		      #:size  (conc cell-width btn-height)
+		      #:expand  "HORIZONTAL"
+		      #:fontsize btn-fontsz
+		      #:action (lambda (obj)
+				 (mark-for-update runs-dat)
+				 (toggle-hide testnum (dboard:commondat-uidat commondat)))))) 
 	  (vector-set! lftcol testnum labl)
 	  (loop (+ testnum 1)(cons labl res))))))
     ;; These are the headers for each row
     (let loop ((runnum  0)
 	       (keynum  0)