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.24 -r1.25 --- openacs-4/packages/xotcl-core/www/show-object.tcl 25 Apr 2018 19:47:48 -0000 1.24 +++ openacs-4/packages/xotcl-core/www/show-object.tcl 9 May 2018 15:33:34 -0000 1.25 @@ -108,7 +108,7 @@ if {$dosort} {set list [lsort $list]} - set refs {} + set refs [list] 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 {} + set pretty [list] foreach m $methods { if {[info exists param($m)]} continue set entry [::xo::api method_link $c instproc $m] @@ -136,7 +136,7 @@ append result "