@@ -132,24 +132,30 @@
     (set! *allruns* result)
     maxtests))
 
 (define (update-labels uidat)
   (let* ((rown    0)
-	 (lftcol (vector-ref uidat 0))
-	 (maxn   (- (vector-length lftcol) 1)))
-    (let loop ((i 0))
-      (iup:attribute-set! (vector-ref lftcol i) "TITLE" "")
-      (if (< i maxn)
-	  (loop (+ i 1))))
+	 (lftcol  (vector-ref uidat 0))
+	 (numcols (vector-length lftcol))
+	 (maxn    (- numcols 1))
+	 (allvals (make-vector numcols "")))
     (for-each (lambda (name)
 		(if (<= rown maxn)
 		    (let ((labl (vector-ref lftcol rown)))
-		      (iup:attribute-set! labl "TITLE" name)))
+		      (vector-set! allvals rown name)))
 		(set! rown (+ 1 rown)))
 	      (if (> (length *alltestnamelst*) *start-test-offset*)
 		  (drop *alltestnamelst* *start-test-offset*)
-		  '())))) ;; *alltestnamelst*))))
+		  '()))
+    (let loop ((i 0))
+      (let* ((lbl    (vector-ref lftcol i))
+	     (oldval (iup:attribute lbl "TITLE"))
+	     (newval (vector-ref allvals i)))
+	(if (not (equal? oldval newval))
+	    (iup:attribute-set! lbl "TITLE" newval))
+	(if (< i maxn)
+	    (loop (+ i 1)))))))
 
 (define (get-color-for-state-status state status)
   (case (string->symbol state)
     ((COMPLETED)
      (if (equal? status "PASS")