@@ -413,10 +413,17 @@
 (define-inline (db:step-set-test_id!        vec val)(vector-set! vec 1 val))
 (define-inline (db:step-set-stepname!       vec val)(vector-set! vec 2 val))
 (define-inline (db:step-set-state!          vec val)(vector-set! vec 3 val))
 (define-inline (db:step-set-status!         vec val)(vector-set! vec 4 val))
 (define-inline (db:step-set-event_time!     vec val)(vector-set! vec 5 val))
+
+(define (db:step-get-time-as-string vec)
+    (seconds->time-string (db:step-get-event_time vec)))
+
+(define (seconds->time-string sec)
+  (time->string 
+   (seconds->local-time sec)))
 
 ;; db-get-test-steps-for-run
 (define (db:get-steps-for-test db test-id)
   (let ((res '()))
     (sqlite3:for-each-row