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 -N -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)]} {