Index: megatest.scm
==================================================================
--- megatest.scm
+++ megatest.scm
@@ -224,11 +224,17 @@
     (set! open-run-close open-run-close-no-exception-handling))
 
 ;; a,b,c % => a/%,b/%,c/%
 (define (tack-on-patt srcstr patt)
   (let ((strlst (string-split srcstr ",")))
-    (conc (string-intersperse strlst (conc "/" patt ",")) "/" patt)))
+    (string-intersperse 
+     (map (lambda (str)
+	    (if (substring-index "/" str)
+		(conc str "/" patt)
+		str))
+	  strlst)
+	   ",")))
 
 ;; to try and not burden Kim too much...
 (if (args:get-arg "-itempatt")
     (let ((old-testpatt (args:get-arg "-testpatt")))
       ;; (debug:print 0 "ERROR: parameter \"-itempatt\" has been deprecated. For now I will tweak your -testpatt for you")