Index: openacs-4/packages/xowiki/tcl/test/test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/test/test-procs.tcl,v
diff -u -N -r1.12 -r1.13
--- openacs-4/packages/xowiki/tcl/test/test-procs.tcl	30 Jul 2018 07:48:57 -0000	1.12
+++ openacs-4/packages/xowiki/tcl/test/test-procs.tcl	31 Jul 2018 06:28:17 -0000	1.13
@@ -272,7 +272,7 @@
             aa_true "CSSclass: '$CSSclass' non empty"  {$CSSclass ne ""}
         }
 
-        set form [acs::test::get_form $response "//form\[contains(@class,'$CSSclass') and contains(@method,'POST')\]"]
+        set form [acs::test::get_form $response "//form\[contains(@class,'$CSSclass') and @method='POST'\]"]
 
         set f_page_name [dict get $form fields _name]
         set f_creator   [dict get $form fields _creator]