Index: api.scm
==================================================================
--- api.scm
+++ api.scm
@@ -102,12 +102,11 @@
                      (list-ref params 4) ; comment
                      ))
                    
                    ((delete-test-records)             (apply db:delete-test-records dbstruct params))
                    ((delete-old-deleted-test-records) (apply db:delete-old-deleted-test-records dbstruct params))
-                   ((test-set-state-status)           (apply db:test-set-state-status dbstruct params)
-		    )
+                   ((test-set-state-status)           (apply db:test-set-state-status dbstruct params))
                    ((test-set-top-process-pid)        (apply db:test-set-top-process-pid dbstruct params))
                    ((set-state-status-and-roll-up-items) (apply db:set-state-status-and-roll-up-items dbstruct params))
                    ((set-state-status-and-roll-up-run) (apply db:set-state-status-and-roll-up-run dbstruct params)) 
                    ((top-test-set-per-pf-counts)      (apply db:top-test-set-per-pf-counts dbstruct params))
                    ((test-set-archive-block-id)       (apply db:test-set-archive-block-id dbstruct params))
@@ -229,11 +228,11 @@
                    ((get-steps-for-test)           (apply db:get-steps-for-test dbstruct params))
 		   ((get-steps-info-by-id)         (apply db:get-steps-info-by-id dbstruct params))
 
                    ;; TEST DATA
                    ((read-test-data)               (apply db:read-test-data dbstruct params))
-                   ((read-test-data-alt)              (apply db:read-test-data-alt dbstruct params))
+                   ((read-test-data-varpatt)       (apply db:read-test-data-varpatt dbstruct params))
                    ((get-data-info-by-id)          (apply db:get-data-info-by-id dbstruct params)) 
 
                    ;; MISC
                    ((get-latest-host-load)         (apply db:get-latest-host-load dbstruct params))
                    ((have-incompletes?)            (apply db:have-incompletes? dbstruct params))

Index: commonmod.scm
==================================================================
--- commonmod.scm
+++ commonmod.scm
@@ -300,20 +300,19 @@
                        (if message
                            (debug:print-info 0 *default-log-port* message))
                        #f) (thunk) ))
 
 (define (common:file-exists? path-string #!key (silent #f))
-  ;; this avoids stack dumps in the case where 
-  ;;;; TODO: catch permission denied exceptions and emit appropriate warnings, eg:  system error while trying to access file: "/nfs/pdx/disks/icf_env_disk001/bjbarcla/gwa/issues/mtdev/randy-slow/reproduce/q...
+  ;;;; TODO: catch permission denied exceptions and emit appropriate warnings. Might be able to get rid of with chicken 5?
   (common:false-on-exception (lambda () (file-exists? path-string))
                              message: (if (not silent)
                                           (conc "Unable to access path: " path-string)
                                           #f)
                              ))
 
 (define (common:directory-exists? path-string)
-  ;;;; TODO: catch permission denied exceptions and emit appropriate warnings, eg:  system error while trying to access file: "/nfs/pdx/disks/icf_env_disk001/bjbarcla/gwa/issues/mtdev/randy-slow/reproduce/q...
+  ;;;; TODO: catch permission denied exceptions and emit appropriate warnings
   (common:false-on-exception (lambda () (directory-exists? path-string))
                              message: (conc "Unable to access path: " path-string)
                              ))
 
 ;; does the directory exist and do we have write access?

Index: dbmod.scm
==================================================================
--- dbmod.scm
+++ dbmod.scm
@@ -3553,11 +3553,11 @@
 	"SELECT id,test_id,category,variable,value,expected,tol,units,comment,status,type FROM test_data WHERE test_id=? AND category LIKE ? ORDER BY category,variable;" test-id categorypatt)
        (reverse res)))))
 
 ;; This routine moved from tdb.scm, :read-test-data
 ;;
-(define (db:read-test-data-alt dbstruct run-id test-id categorypatt varpatt)
+(define (db:read-test-data-varpatt dbstruct run-id test-id categorypatt varpatt)
   (let* ((res '()))
     (db:with-db
      dbstruct #f #f
      (lambda (db)
        (sqlite3:for-each-row 

Index: megatest.scm
==================================================================
--- megatest.scm
+++ megatest.scm
@@ -1353,11 +1353,11 @@
                                                     (itempath     (if (member "item_path"    tests-spec)(get-value-by-fieldname test test-field-index "item_path"   ) #f)) ;; (db:test-get-item-path  test))
                                                     (fullname     (conc testname
                                                                         (if (equal? itempath "")
                                                                             "" 
                                                                             (conc "/" itempath ))))
-                                                    (testdat-raw (map vector->list (rmt:read-test-data-alt run-id test-id categorypatt setvarpatt)))
+                                                    (testdat-raw (map vector->list (rmt:read-test-data-varpatt run-id test-id categorypatt setvarpatt)))
                                                     (testdat (filter
                                                               (lambda (x)
                                                                 (not (equal? "logpro"
                                                                              (list-ref x 10))))
                                                               testdat-raw)))

Index: rmt.scm
==================================================================
--- rmt.scm
+++ rmt.scm
@@ -912,12 +912,13 @@
 ;;  T E S T   D A T A 
 ;;======================================================================
 
 (define (rmt:read-test-data run-id test-id categorypatt #!key (work-area #f)) 
   (rmt:send-receive 'read-test-data run-id (list run-id test-id categorypatt)))
-(define (rmt:read-test-data-alt run-id test-id categorypatt varpatt #!key (work-area #f)) 
-  (rmt:send-receive 'read-test-data-alt run-id (list run-id test-id categorypatt varpatt)))
+
+(define (rmt:read-test-data-varpatt run-id test-id categorypatt varpatt #!key (work-area #f)) 
+  (rmt:send-receive 'read-test-data-varpatt run-id (list run-id test-id categorypatt varpatt)))
 
 (define (rmt:get-data-info-by-id test-data-id)
    (rmt:send-receive 'get-data-info-by-id #f (list test-data-id)))
 
 (define (rmt:testmeta-add-record testname)