Index: megatest-version.scm
==================================================================
--- megatest-version.scm
+++ megatest-version.scm
@@ -1,7 +1,7 @@
 ;; Always use two digit decimal
 ;; 1.01, 1.02...1.10,1.11 ... 1.99,2.00..
 
 (declare (unit megatest-version))
 
-(define megatest-version 1.502)
+(define megatest-version 1.503)
 

Index: megatest.scm
==================================================================
--- megatest.scm
+++ megatest.scm
@@ -224,16 +224,17 @@
     (set! open-run-close open-run-close-no-exception-handling))
 
 ;; 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")
-      (hash-table-set! args:arg-hash "-testpatt" (conc old-testpatt "/" (args:get-arg "-itempatt")))
-      (debug:print 0 "    old: " old-testpatt ", new: " (args:get-arg "-testpatt"))
+      ;; (debug:print 0 "ERROR: parameter \"-itempatt\" has been deprecated. For now I will tweak your -testpatt for you")
+      (if (args:get-arg "-testpatt")
+	  (hash-table-set! args:arg-hash "-testpatt" (conc old-testpatt "/" (args:get-arg "-itempatt"))))
+      ;; (debug:print 0 "    old: " old-testpatt ", new: " (args:get-arg "-testpatt"))
       (if (args:get-arg "-runtests")
 	  (begin
-	    (debug:print 0 "NOTE: Also modifying -runtests")
+	    ;; (debug:print 0 "NOTE: Also modifying -runtests")
 	    (hash-table-set! args:arg-hash "-runtests" (conc (args:get-arg "-runtests") "/" 
 							     (args:get-arg "-itempatt")))))
       ))
 
 ;;======================================================================