@@ -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)))