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 -N -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]