@@ -359,11 +359,11 @@
 				    #:expand "YES"
 				    #:multiline "YES"
 				    #:font "Courier New, -10")))
 		  (hash-table-set! widgets "Test Steps" (lambda (testdat)
 							  (let* ((currval (iup:attribute stepsdat "VALUE")) ;; "TITLE"))
-								 (fmtstr  "~25a~10a~10a~15a~20a")
+								 (fmtstr  "~25a~10a~10a~15a~15a")
 								 (comprsteps (db:get-steps-table db test-id))
 								 (newval  (string-intersperse 
 									   (append
 									    (list 
 									     (format #f fmtstr "Stepname" "Start" "End"    "Status" "Time")
@@ -374,12 +374,12 @@
 											   (vector-ref x 0)
 											   (let ((s (vector-ref x 1)))
 											     (if (number? s)(seconds->time-string s) s))
 											   (let ((s (vector-ref x 2)))
 											     (if (number? s)(seconds->time-string s) s))
-											   (vector-ref x 3)
-											   (vector-ref x 4)))
+											   (vector-ref x 3)    ;; status
+											   (vector-ref x 4)))  ;; time delta
 										 (sort (hash-table-values comprsteps)
 										       (lambda (a b)
 											 (if (and (number? a)(number? b))
 											     (< (vector-ref a 1)(vector-ref b 1))
 											     #t)))))