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 -r1.11 -r1.12
--- openacs-4/packages/xowiki/tcl/test/test-procs.tcl	25 Jul 2018 20:18:40 -0000	1.11
+++ openacs-4/packages/xowiki/tcl/test/test-procs.tcl	30 Jul 2018 07:48:57 -0000	1.12
@@ -272,7 +272,7 @@
             aa_true "CSSclass: '$CSSclass' non empty"  {$CSSclass ne ""}
         }
 
-        set form [acs::test::get_form $response "//form\[contains(@class,'$CSSclass')\]"]
+        set form [acs::test::get_form $response "//form\[contains(@class,'$CSSclass') and contains(@method,'POST')\]"]
 
         set f_page_name [dict get $form fields _name]
         set f_creator   [dict get $form fields _creator]