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