@@ -372,11 +372,14 @@
 											   (let ((s (vector-ref x 2)))
 											     (if (number? s)(seconds->time-string s) s))
 											   (vector-ref x 3)
 											   (vector-ref x 4)))
 										 (sort (hash-table-values comprsteps)
-										       (lambda (a b)(< (vector-ref a 1)(vector-ref b 1))))))
+										       (lambda (a b)
+											 (if (and (number? a)(number? b))
+											     (< (vector-ref a 1)(vector-ref b 1))
+											     #t)))))
 									   "\n")))
 							    (if (not (equal? currval newval))
 								(iup:attribute-set! stepsdat "TITLE" newval)))))
 		  stepsdat)))))
       (iup:show self)