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.88 -r1.89
--- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	7 Apr 2018 17:14:54 -0000	1.88
+++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	25 Apr 2018 19:47:48 -0000	1.89
@@ -216,7 +216,7 @@
 
 namespace eval ::xo {
   proc slotobjects cl {
-    set so [list]
+    set so {}
     array set names ""
     foreach c [list $cl {*}[$cl info heritage]] {
       foreach s [$c info slots] {