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 -N -r1.48 -r1.49
--- openacs-4/packages/xowiki/tcl/xowiki-utility-procs.tcl	30 Apr 2018 08:47:40 -0000	1.48
+++ openacs-4/packages/xowiki/tcl/xowiki-utility-procs.tcl	9 May 2018 15:33:34 -0000	1.49
@@ -213,8 +213,8 @@
     in acs_objects; this proc updates the package_ids of all items
     and revisions in acs_objects
   } {
-    set folder_ids {}
-    set package_ids {}
+    set folder_ids [list]
+    set package_ids [list]
     foreach package_id [::xowiki::Package instances] {
       ns_log notice "checking package_id $package_id"
       set folder_id [::xo::dc list get_folder_id "select f.folder_id from cr_items c, cr_folders f \
@@ -661,7 +661,7 @@
   }
 
   :proc get_page_order_items {-parent_id {-publish_status "production"} page_orders} {
-    set likes {}
+    set likes [list]
     foreach page_order $page_orders {
       if {[::xowiki::page_order_uses_ltree]} {
         lappend likes "p.page_order <@ '$page_order'" 
@@ -692,7 +692,7 @@
     #:log "pages=$pages"
     array set npo [::xowiki::utility page_order_compute_new_names $start $to]
     #:log npo=[array get npo]=>to='$to'
-    set renames {}
+    set renames [list]
     foreach tuple $pages {
       lassign $tuple old_page_order page_id item_id name
       if {[info exists npo($old_page_order)]} {
@@ -755,7 +755,7 @@
     }
     
     #ns_log notice "--cpo from=$from, to=$to, clean=$clean"
-    set gap_renames {}
+    set gap_renames [list]
     #
     # We distinguish two cases:
     # - pure reordering: length(to) == length(from)
@@ -779,7 +779,7 @@
       # 
       # Compute the remaining list.
       #
-      set remaining {}
+      set remaining [list]
       foreach e $clean {if {$e ne $inserted} {lappend remaining $e}}
       #
       # Compute rename commands for it.
@@ -856,7 +856,7 @@
   if {[ns_info name] eq "NaviServer"} {
     :proc urlencode {string} {ns_urlencode $string}
   } else {
-    set ue_map {}
+    set ue_map [list]
     for {set i 0} {$i < 256} {incr i} {
       set c [format %c $i]
       set x %[format %02x $i]