Index: openacs-4/packages/xotcl-core/tcl/doc-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/doc-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/xotcl-core/tcl/doc-procs.tcl	13 Dec 2017 20:42:31 -0000	1.3
+++ openacs-4/packages/xotcl-core/tcl/doc-procs.tcl	26 Apr 2018 08:56:39 -0000	1.4
@@ -13,7 +13,7 @@
     }
 
     proc dotquotel {l} {
-	set result [list]
+	set result {}
 	foreach e $l { lappend result \"$e\" }
 	return $result
     }
@@ -57,7 +57,7 @@
 	}
 	append definition "|"
 	::xo::api scope_from_object_reference scope e
-	set methods [list]
+	set methods {}
         dot_append_method -documented_methods $documented_methods $e methods proc
         dot_append_method -documented_methods $documented_methods $e methods instproc
 	dot_append_method -documented_methods $documented_methods $e methods instforward
@@ -103,7 +103,7 @@
 	set superclasses ""
 	foreach e $classes {
             if {![::nsf::is object $e]} continue
-            set reduced_sc [list]
+            set reduced_sc {}
             foreach sc [::xo::getObjectProperty $e superclass] {
                 if {$omit_base_classes && [::nsf::is baseclass $sc]} continue
                 lappend reduced_sc $sc