Index: openacs-4/packages/xowiki/tcl/folder-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/folder-procs.tcl,v
diff -u -r1.45 -r1.46
--- openacs-4/packages/xowiki/tcl/folder-procs.tcl	15 Mar 2018 09:10:15 -0000	1.45
+++ openacs-4/packages/xowiki/tcl/folder-procs.tcl	6 Apr 2018 16:06:32 -0000	1.46
@@ -363,9 +363,9 @@
           -parent_id $opt_parent_id \
           -return_url $return_url \
           -nls_language $nls_language \
-          [concat \
-               [$package_id get_parameter ExtraMenuEntries {}] \
-               [${:current_folder} property extra_menu_entries]]
+          [list \
+               {*}[$package_id get_parameter ExtraMenuEntries {}] \
+               {*}[${:current_folder} property extra_menu_entries]]
     }
 
     set top_folder_of_tree $root_folder
Index: openacs-4/packages/xowiki/tcl/form-field-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/form-field-procs.tcl,v
diff -u -r1.260 -r1.261
--- openacs-4/packages/xowiki/tcl/form-field-procs.tcl	21 Mar 2018 19:39:52 -0000	1.260
+++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl	6 Apr 2018 16:06:32 -0000	1.261
@@ -736,7 +736,7 @@
     # value with the new value
     foreach c [:info heritage] {
       if {[info commands ${c}::slot::$name] ne ""} {
-        set value [concat $value [${c}::slot::$name default]]
+        set value [list $value {*}[${c}::slot::$name default]]
         break
       }
     }
@@ -4102,7 +4102,7 @@
   class instproc initialize {} {
     set :options ""
     set baseclass [:subclass_of]
-    foreach cl [lsort [concat $baseclass [$baseclass info subclass -closure]]] {
+    foreach cl [lsort [list $baseclass {*}[$baseclass info subclass -closure]]] {
       lappend :options [list $cl $cl]
     }
     next
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.213 -r1.214
--- openacs-4/packages/xowiki/tcl/includelet-procs.tcl	25 Mar 2018 22:13:40 -0000	1.213
+++ openacs-4/packages/xowiki/tcl/includelet-procs.tcl	6 Apr 2018 16:06:32 -0000	1.214
@@ -3945,12 +3945,12 @@
     array set uc {tcl false h "" vars "" sql ""}
     if {[info exists unless]} {
       array set uc [::xowiki::FormPage filter_expression $unless ||]
-      set init_vars [concat $init_vars $uc(vars)]
+      set init_vars [list {*}$init_vars {*}$uc(vars)]
     }
     array set wc {tcl true h "" vars "" sql ""}
     if {[info exists where]} {
       array set wc [::xowiki::FormPage filter_expression $where &&]
-      set init_vars [concat $init_vars $wc(vars)]
+      set init_vars [list {*}$init_vars {*}$wc(vars)]
     }
     #my msg uc=[array get uc]
     #my msg wc=[array get wc]
Index: openacs-4/packages/xowiki/tcl/menu-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/menu-procs.tcl,v
diff -u -r1.13 -r1.14
--- openacs-4/packages/xowiki/tcl/menu-procs.tcl	25 Mar 2018 22:13:40 -0000	1.13
+++ openacs-4/packages/xowiki/tcl/menu-procs.tcl	6 Apr 2018 16:06:32 -0000	1.14
@@ -362,15 +362,15 @@
   ::xowiki::MenuBar instproc content {} {
     set result [list id [:id]]
     foreach e ${:Menues} {
-      lappend result $e [concat kind MenuButton [set :Menu($e)]]
+      lappend result $e [list kind MenuButton {*}[set :Menu($e)]]
     }
     
     foreach e [:array name ModeButton] {
-      lappend result $e [concat kind ModeButton [set :ModeButton($e)]]
+      lappend result $e [list kind ModeButton {*}[set :ModeButton($e)]]
     }
 
     foreach e [:array name DropZone] {
-      lappend result $e [concat kind DropZone [set :DropZone($e)]]
+      lappend result $e [list kind DropZone {*}[set :DropZone($e)]]
     }
 
     return $result
Index: openacs-4/packages/xowiki/tcl/package-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/package-procs.tcl,v
diff -u -r1.311 -r1.312
--- openacs-4/packages/xowiki/tcl/package-procs.tcl	30 Mar 2018 11:37:02 -0000	1.311
+++ openacs-4/packages/xowiki/tcl/package-procs.tcl	6 Apr 2018 16:06:32 -0000	1.312
@@ -610,7 +610,7 @@
       set package_class [::xo::PackageMgr get_package_class_from_package_key $(package_key)]
       if {$package_class ne ""} {
         # we found an xo::Package, but is it an xowiki package?
-        set classes [concat $package_class [$package_class info heritage]]
+        set classes [list $package_class {*}[$package_class info heritage]]
         if {"::xowiki::Package" in $classes} {
           # yes, it is an xowiki::package, compute the name and return the package_id
           ::xowiki::Package require $package_id
@@ -2467,7 +2467,7 @@
       set object_type [::xo::db::CrClass get_object_type -item_id $item_id]
       # In case of PageTemplate and subtypes, we need to check
       # for pages using this template
-      set classes [concat $object_type [$object_type info heritage]]
+      set classes [list $object_type {*}[$object_type info heritage]]
       if {"::xowiki::PageTemplate" in $classes} {
         set count [::xowiki::PageTemplate count_usages -item_id $item_id -publish_status all]
         if {$count > 0} {
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 -r1.508 -r1.509
--- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	25 Mar 2018 22:13:40 -0000	1.508
+++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	6 Apr 2018 16:06:32 -0000	1.509
@@ -4355,8 +4355,8 @@
     #
     # this method returns the form attributes (including _*)
     #
-    set allvars [concat [[:info class] array names db_slot] \
-                     [::xo::db::CrClass set common_query_atts]]
+    set allvars [list {*}[[:info class] array names db_slot] \
+                     {*}[::xo::db::CrClass set common_query_atts]]
 
     set template [:get_html_from_content [:get_from_template text]]
     #my msg template=$template
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 -r1.345 -r1.346
--- openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl	25 Mar 2018 22:13:40 -0000	1.345
+++ openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl	6 Apr 2018 16:06:32 -0000	1.346
@@ -1737,7 +1737,7 @@
   }
 
   Page proc find_slot {-start_class:required name} {
-    foreach cl [concat $start_class [$start_class info heritage]] {
+    foreach cl [list $start_class {*}[$start_class info heritage]] {
       set slotobj ${cl}::slot::$name
       if {[:isobject $slotobj]} {
         #:msg $slotobj
Index: openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl,v
diff -u -r1.86 -r1.87
--- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	22 Jan 2018 18:38:43 -0000	1.86
+++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	6 Apr 2018 16:09:58 -0000	1.87
@@ -218,7 +218,7 @@
   proc slotobjects cl {
     set so [list]
     array set names ""
-    foreach c [concat $cl [$cl info heritage]] {
+    foreach c [list $cl {*}[$cl info heritage]] {
       foreach s [$c info slots] {
         set n [namespace tail $s]
         if {![info exists names($n)]} {