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.5 -r1.6
--- openacs-4/packages/xowiki/tcl/test/test-procs.tcl	29 May 2018 12:19:01 -0000	1.5
+++ openacs-4/packages/xowiki/tcl/test/test-procs.tcl	11 Jun 2018 09:05:35 -0000	1.6
@@ -67,7 +67,7 @@
         set values {}
         foreach n [$node selectNodes //form\[contains(@class,'$className')\]//input] {
             set name  [$n getAttribute name]
-            ns_log notice "form $className input node $n name $name:"
+            #ns_log notice "form $className input node $n name $name:"
             if {[$n hasAttribute value]} {
                 set value [$n getAttribute value]
             } else {
@@ -77,7 +77,7 @@
         }
         foreach n [$node selectNodes //form\[contains(@class,'$className')\]//textarea] {
             set name  [$n getAttribute name]
-            ns_log notice "form $className textarea node $n name $name:"
+            #ns_log notice "form $className textarea node $n name $name:"
             set value [$n text]
             lappend values $name $value
         }
@@ -210,7 +210,8 @@
     } {
 
         Create a form page via the web interface.
-
+        In essence this calls $instance/$path/$form_name?m=create-new
+        
     } {
         #
         # Create a page under the parent_id
@@ -262,8 +263,8 @@
                    -update $update \
                    $form_content]
         aa_equals "Status code valid" [dict get $d status] 302
-        set response [dict get $d body]
-        ns_log notice "FORM POST\n$response"
+        #set response [dict get $d body]
+        #ns_log notice "FORM POST\n$response"
 
         foreach {key value} $update {
             dict set form_content $key $value
@@ -298,7 +299,8 @@
         {-update ""}
     } {
 
-        Edit a form page via the web interface
+        Edit a form page via the web interface.
+        In essence, this calls $instance/$path?m=edit
 
     } {
         aa_log "... edit page $path"