Index: openacs-4/packages/xotcl-core/www/show-object.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/www/show-object.tcl,v
diff -u -r1.23 -r1.24
--- openacs-4/packages/xotcl-core/www/show-object.tcl	7 Aug 2017 23:48:30 -0000	1.23
+++ openacs-4/packages/xotcl-core/www/show-object.tcl	25 Apr 2018 19:47:48 -0000	1.24
@@ -108,7 +108,7 @@
 
   if {$dosort} {set list [lsort $list]}
 
-  set refs [list]
+  set refs {}
   foreach e $list {
     lappend refs [::xo::api object_link $scope $e]
   }
@@ -126,7 +126,7 @@
   set result ""
   if {0} {
     set methods [lsort [DO xo::getObjectProperty $c instcommand]]
-    set pretty [list]
+    set pretty {}
     foreach m $methods {
       if {[info exists param($m)]} continue
       set entry [::xo::api method_link $c instproc $m]
@@ -136,7 +136,7 @@
       append result "<dt><em>Methods for instances:</em></dt> <dd>[join $pretty {, }]</dd>"
     }
     set methods [lsort [DO xo::getObjectProperty $c command -callprotection all]]
-    set pretty [list]
+    set pretty {}
     foreach m $methods {
       if {![DO xo::getObjectProperty ${c}::$m isobject]} {
         lappend pretty [::xo::api method_link $c proc $m]