@@ -128,10 +128,14 @@
 	 (sec (- secs (* hrs 3600)(* min 60))))
     (conc (if (> hrs 0)(conc hrs "hr ") "")
 	  (if (> min 0)(conc min "m ")  "")
 	  sec "s")))
 
+(define (seconds->time-string sec)
+  (time->string 
+   (seconds->local-time sec) "%H:%M:%S"))
+
 ;;======================================================================
 ;; Colors
 ;;======================================================================
       
 (define (common:name->iup-color name)