Index: Makefile
==================================================================
--- Makefile
+++ Makefile
@@ -7,12 +7,11 @@
            db.scm keys.scm margs.scm megatest-version.scm \
            process.scm runs.scm tasks.scm tests.scm genexample.scm \
 	   fs-transport.scm http-transport.scm \
            client.scm gutils.scm synchash.scm daemon.scm mt.scm dcommon.scm \
 	   tree.scm ezsteps.scm lock-queue.scm filedb.scm \
-	   rmt.scm api.scm tdb.scm \
-	   ezsteps.scm lock-queue.scm
+	   rmt.scm api.scm tdb.scm
 
 GUISRCF  = dashboard-tests.scm dashboard-guimonitor.scm 
 
 OFILES   = $(SRCFILES:%.scm=%.o)
 GOFILES  = $(GUISRCF:%.scm=%.o)

Index: db.scm
==================================================================
--- db.scm
+++ db.scm
@@ -986,11 +986,11 @@
      (else
       (if newstate   (sqlite3:execute db "UPDATE tests SET state=?   WHERE id=?;" newstate   test-id))
       (if newstatus  (sqlite3:execute db "UPDATE tests SET status=?  WHERE id=?;" newstatus  test-id))
       (if newcomment (sqlite3:execute db "UPDATE tests SET comment=? WHERE id=?;" newcomment test-id))))
   (db:process-triggers test-id newstate newstatus)
-  #t) ;; retrun something to keep the remote calls happy
+  #t)) ;; retrun something to keep the remote calls happy
 
 ;; Never used
 ;; (define (db:test-set-state-status-by-run-id-testname db run-id test-name item-path status state)
 ;;   (sqlite3:execute db "UPDATE tests SET state=?,status=?,event_time=strftime('%s','now') WHERE run_id=? AND testname=? AND item_path=?;" 
 ;; 		   state status run-id test-name item-path))
@@ -1838,20 +1838,20 @@
 (define (db:step-get-time-as-string vec)
   (seconds->time-string (db:step-get-event_time vec)))
 
 (define (db:get-steps-for-test dbstruct run-id test-id)
   (let ((res '()))
-
     (sqlite3:for-each-row 
      (lambda (id test-id stepname state status event-time logfile)
        (set! res (cons (vector id test-id stepname state status event-time (if (string? logfile) logfile "")) res)))
      (db:get-db dbstruct run-id)
      "SELECT id,test_id,stepname,state,status,event_time,logfile_id FROM test_steps WHERE test_id=? ORDER BY id ASC;" ;; event_time DESC,id ASC;
      test-id)
     (reverse res)))
-(define (db:get-steps-table dbstruct run-id test-id)
-  (let ((steps   (db:get-steps-for-test dbstruct run-id test-id)))
+
+;;(define (db:get-steps-table dbstruct run-id test-id)
+;;  (let ((steps   (db:get-steps-for-test dbstruct run-id test-id)))
 ;; ;; get a pretty table to summarize steps
 ;; ;;
 ;; (define (db:get-steps-table-list dbstruct run-id test-id #!key (work-area #f))
 ;;   (let ((steps   (db:get-steps-for-test dbstruct run-id test-id)))
 ;;     ;; organise the steps for better readability