Index: openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl,v
diff -u -N -r1.368.2.111 -r1.368.2.112
--- openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl	4 Mar 2022 14:55:35 -0000	1.368.2.111
+++ openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl	4 Mar 2022 15:24:25 -0000	1.368.2.112
@@ -322,19 +322,6 @@
     }
 
     #
-    # Provide "p.configure" hook to programmatically configure pages
-    #
-    if {[:exists_query_parameter p.configure]} {
-      set configure_method [:query_parameter p.configure:wordchar]
-      if {[$f procsearch configure_page=$configure_method] ne ""} {
-        #ns_log notice "call [$f procsearch configure_page=$configure_method] // [$f info class]"
-        $f configure_page=$configure_method $name
-      } else {
-        ns_log notice "cannot find configure_page=$configure_method on [$f info precedence]"
-      }
-    }
-
-    #
     # Provide "p.source" hook to configure pages by copying variables
     # from other pages (e.g. sitewide pages)
     #
@@ -363,6 +350,19 @@
       $f publish_status $publish_status
     }
 
+    #
+    # Provide "p.configure" hook to programmatically configure pages
+    #
+    if {[:exists_query_parameter p.configure]} {
+      set configure_method [:query_parameter p.configure:wordchar]
+      if {[$f procsearch configure_page=$configure_method] ne ""} {
+        #ns_log notice "call [$f procsearch configure_page=$configure_method] // [$f info class]"
+        $f configure_page=$configure_method $name
+      } else {
+        ns_log notice "cannot find configure_page=$configure_method on [$f info precedence]"
+      }
+    }
+
     if {$name eq ""} {
       $f save_new
     } else {