@@ -878,11 +878,12 @@
 		    (let* ((testdat      (let ((matching (hash-table-ref/default testsdat-by-name testname #f)))
 					   ;; (filter 
 					   ;;   (lambda (x)(equal? (test:test-get-fullname x) testname))
 					   ;;     testsdat)))
 					   (if (not matching)
-					       (vector -1 -1 "" "" "" 0 "" "" 0 "" "" "" 0 "" "")
+					       ;;(vector -1 -1 "" "" "" 0 "" "" 0 "" "" "" 0 "" "")
+					       (make-db:test-rec (id -1))
 					       ;; (car matching))))
 					       matching)))
 			   (testname     (db:test-get-testname   testdat))
 			   (itempath     (db:test-get-item-path  testdat))
 			   (testfullname (test:test-get-fullname testdat))