Index: openacs-4/packages/xowiki/tcl/includelet-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/includelet-procs.tcl,v
diff -u -r1.211 -r1.212
--- openacs-4/packages/xowiki/tcl/includelet-procs.tcl	14 Mar 2018 15:40:49 -0000	1.211
+++ openacs-4/packages/xowiki/tcl/includelet-procs.tcl	21 Mar 2018 19:39:52 -0000	1.212
@@ -1836,8 +1836,8 @@
   }
   PageReorderSupport instproc page_reorder_item_id {-ID -prefix_js -page_order js_} {
     :upvar $js_ js 
-    set key __count($prefix_js)
-    if {[info exists :$key]} {set p [incr :$key]} {set p [:set $key 0]}
+    set key :__count($prefix_js)
+    set p [incr $key]
     set id ${ID}_${prefix_js}_$p
     append js "YAHOO.xo_page_order_region.DDApp.cd\['$id'\] = '$page_order';\n"
     return $id
@@ -1945,7 +1945,7 @@
     if {$source ne ""} {
       # add the page_order to the objects
       foreach p [$pages children] {
-        $p set page_order [:set page_order([$p set name])]
+        $p set page_order [set :page_order([$p set name])]
       }
     }