Index: dashboard-tests.scm
==================================================================
--- dashboard-tests.scm
+++ dashboard-tests.scm
@@ -357,13 +357,15 @@
 									 (if (number? s)(seconds->time-string s) s))
 								       (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)))))
+								     (let ((time-a (vector-ref a 1))
+									   (time-b (vector-ref b 1)))
+								     (if (and (number? time-a)(number? time-b))
+									 (< time-a time-b)
+									 #t))))))
 						       "\n")))
 					(if (not (equal? currval newval))
 					    (iup:attribute-set! stepsdat "VALUE" newval ))))) ;; "TITLE" newval)))))
 		   stepsdat))
 		;; populate the Test Data panel

Index: db.scm
==================================================================
--- db.scm
+++ db.scm
@@ -673,12 +673,12 @@
        (lambda (step)
 	 (debug:print 6 "step=" step)
 	 (let ((record (hash-table-ref/default 
 			res 
 			(db:step-get-stepname step) 
-			;;        stepname                start end status    time (needed for sorting)
-			(vector (db:step-get-stepname step) ""   "" ""     "" 0))))
+			;;        stepname                start end status    
+			(vector (db:step-get-stepname step) ""   "" ""     ""))))
 	   (debug:print 6 "record(before) = " record 
 			"\nid:       " (db:step-get-id step)
 			"\nstepname: " (db:step-get-stepname step)
 			"\nstate:    " (db:step-get-state step)
 			"\nstatus:   " (db:step-get-status step)