@@ -181,11 +181,11 @@
 						     #:action (lambda (x)
 								(hash-table-delete! *examine-test-dat* testkey)
 								(iup:destroy! self))))
 			       )))
 		  (iup:hbox ;; the test steps are tracked here
-		   (let ((stepsdat (iup:label "Test steps ......................................" #:expand "YES")))
+		   (let ((stepsdat (iup:label "Test steps ........................................." #:expand "YES")))
 		     (hash-table-set! widgets "Test Steps" stepsdat)
 		     stepsdat)
 		   ))))
 	  (iup:show self)
 	  ))))
@@ -209,11 +209,11 @@
 		  (if (> (length tests) maxtests)
 		      (set! maxtests (length tests)))
 		  (set! result (cons (vector run tests key-vals) result))))
 	      runs)
     (set! *header*  header)
-    (set! *allruns* (reverse result))
+    (set! *allruns* result)
     maxtests))
 
 (define (update-labels uidat)
   (let* ((rown    0)
 	 (lftcol (vector-ref uidat 0))
@@ -242,11 +242,11 @@
      (lambda (popup)
        (let* ((test-id  (car popup))
 	      (widgets  (hash-table-ref *examine-test-dat* popup))
 	      (stepslbl (hash-table-ref/default widgets "Test Steps" #f)))
 	 (if stepslbl
-	     (let* ((fmtstr  "~15a~8a~8a~17a")
+	     (let* ((fmtstr  "~15a~8a~8a~20a")
 		    (newtxt  (string-intersperse 
 			      (append
 			       (list 
 				(format #f fmtstr "Stepname" "State" "Status" "Event Time")
 				(format #f fmtstr "========" "=====" "======" "=========="))