Index: openacs-4/packages/xowiki/tcl/xowiki-utility-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-utility-procs.tcl,v
diff -u -r1.31.2.3 -r1.31.2.4
--- openacs-4/packages/xowiki/tcl/xowiki-utility-procs.tcl	11 Feb 2014 11:58:19 -0000	1.31.2.3
+++ openacs-4/packages/xowiki/tcl/xowiki-utility-procs.tcl	13 Mar 2014 10:14:48 -0000	1.31.2.4
@@ -440,7 +440,8 @@
 ::xo::Module create ::xowiki::utility -eval {
 
   my proc incr_page_order {p} {
-    regexp {^(.*[.]?)([^.])$} $p _ prefix suffix
+    lassign [list "" $p] prefix suffix
+    regexp {^(.*[.])([^.]+)$} $p _ prefix suffix
     if {[string is integer -strict $suffix]} {
       incr suffix
     } elseif {[string is lower -strict $suffix]} {