Index: openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl,v
diff -u -r1.52 -r1.53
--- openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl	29 Mar 2018 08:00:01 -0000	1.52
+++ openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl	23 Apr 2018 07:17:58 -0000	1.53
@@ -57,12 +57,12 @@
         }
         set arg_parser "[namespace tail $proc_name_old]__arg_parser"
         #
-        # In case a arg-parser was used in the old body, but is
+        # In case an arg-parser was used in the old body, but is
         # missing in the new version, add it automatically to the new
         # body.
         #
-        if {[string match *$arg_parser* $old_body]} {
-            if {![string match *$arg_parser* $new_body]} {
+        if {[string match "*$arg_parser*" $old_body]} {
+            if {![string match "*$arg_parser*" $new_body]} {
                 set new_body $arg_parser\n$new_body
                 #ns_log notice "... auto added arg_parser for '$proc_name_new' ====> new_body $new_body"
             }
@@ -1157,7 +1157,7 @@
                 aa_true "XPAth exception during evaluation of selector '$q': $errorMsg" 0
                 throw {XPATH {xpath triggered exception}} $errorMsg
             }
-            aa_true "XPath $q <$value>:" {[string length $value] > 0}
+            aa_true "XPath $q <$value>:" {$value ne ""}
         }
     }
     ad_proc -public ::aa_xpath::equals {node pairs} {