Index: tests.scm
==================================================================
--- tests.scm
+++ tests.scm
@@ -88,11 +88,12 @@
 (define (tests:extend-test-patts test-patt test-b test-a itemmap)
   (let* ((patts      (string-split test-patt ","))
 	 (test-b-len (+ (string-length test-b) 1))
 	 (patts-b    (map (lambda (x)
 			    (let* ((modpatt (if itemmap (db:convert-test-itempath x itemmap) x)) 
-				   (newpatt (conc test-a "/," test-a "/" (substring modpatt test-b-len (string-length modpatt)))))
+				   (newpatt (conc test-a "/" (substring modpatt test-b-len (string-length modpatt)))))
+				         ;; (conc test-a "/," test-a "/" (substring modpatt test-b-len (string-length modpatt)))))
 			      ;; (print "in map, x=" x ", newpatt=" newpatt)
 			      newpatt))
 			  (filter (lambda (x)
 				    (eq? (substring-index (conc test-b "/") x) 0))
 				  patts))))