@@ -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