@@ -903,11 +903,11 @@
 					   ;; (filter 
 					   ;;   (lambda (x)(equal? (test:test-get-fullname x) testname))
 					   ;;     testsdat)))
 					   (if (not matching)
 					       ;;(vector -1 -1 "" "" "" 0 "" "" 0 "" "" "" 0 "" "")
-					       (make-db:test-rec (id -1))
+					       (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))