@@ -40,10 +40,14 @@
 ;;======================================================================
 ;; T E S T   S P E C I F I C   D B 
 ;;======================================================================
 
 ;; Create the sqlite db for the individual test(s)
+;;
+;; Moved these tables into <runid>.db
+;; THIS CODE TO BE REMOVED
+;;
 (define (open-test-db work-area) 
   (debug:print-info 11 "open-test-db " work-area)
   (if (and work-area 
 	   (directory? work-area)
 	   (file-read-access? work-area))
@@ -169,10 +173,12 @@
               val TEXT,
               ackstate INTEGER DEFAULT 0,
               CONSTRAINT metadat_constraint UNIQUE (var));"))))
   (debug:print 11 "db:testdb-initialize END"))
 
+;; This routine moved to db:read-test-data
+;;
 (define (tdb:read-test-data tdb test-id categorypatt)
   (let ((res '()))
     (sqlite3:for-each-row 
      (lambda (id test_id category variable value expected tol units comment status type)
        (set! res (cons (vector id test_id category variable value expected tol units comment status type) res)))
@@ -221,10 +227,12 @@
 
 (define (tdb:step-get-time-as-string vec)
   (seconds->time-string (tdb:step-get-event_time vec)))
 
 ;; get a pretty table to summarize steps
+;; 
+;; NOT USED, WILL BE REMOVED
 ;;
 (define (tdb:get-steps-table steps);; organise the steps for better readability
   (let ((res (make-hash-table)))
     (for-each 
      (lambda (step)