Index: openacs-4/packages/xowiki/tcl/xowiki-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-procs.tcl,v
diff -u -N -r1.542.2.96 -r1.542.2.97
--- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	15 Dec 2020 19:22:55 -0000	1.542.2.96
+++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	18 Dec 2020 14:30:12 -0000	1.542.2.97
@@ -2795,7 +2795,9 @@
         break
       }
     }
-    if {$spec eq ""} {return $default}
+    if {$spec eq ""} {
+      return $default
+    }
     return $field_name:$spec
   }
 
@@ -2813,7 +2815,8 @@
   Page instproc validate=page_order {value} {
     if {[info exists :page_order]} {
       set page_order [string trim $value " ."]
-      :page_order $page_order
+      set :page_order $page_order
+      # :log "validate=page_order '$value' -> '$page_order'"
       return [expr {![regexp {[^0-9a-zA-Z_.]} $page_order]}]
     }
     return 1