@@ -430,12 +430,17 @@
 									     (sort (hash-table-values comprsteps)
 										   (lambda (a b)
 										     (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))))))
+											   (if (< time-a time-b)
+											       #t
+											       (if (eq? time-a time-b)
+												   (string<? (conc (vector-ref a 2))
+													     (conc (vector-ref b 2)))
+												   #f))
+											   (string<? (conc time-a)(conc time-b))))))))
 								       "\n")))
 							(if (not (equal? currval newval))
 							    (iup:attribute-set! stepsdat "VALUE" newval ))))) ;; "TITLE" newval)))))
 				   stepsdat))
 				;; populate the Test Data panel