Index: openacs-4/packages/xotcl-core/tcl/03-doc-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/03-doc-procs.tcl,v
diff -u -r1.13 -r1.14
--- openacs-4/packages/xotcl-core/tcl/03-doc-procs.tcl	25 Apr 2018 08:52:58 -0000	1.13
+++ openacs-4/packages/xotcl-core/tcl/03-doc-procs.tcl	25 Apr 2018 19:47:48 -0000	1.14
@@ -261,7 +261,7 @@
   }
 
   :public object method source_to_html {{-width 100} string} {
-    set lines [list]
+    set lines {}
     foreach l [split $string \n] {
       while {[string length $l] > $width} {
         set pos [string last " \{" $l $width]
@@ -457,7 +457,7 @@
       dict set doc default_values {}
       dict set doc positionals {}
     } else {
-      set defaults [list]
+      set defaults {}
       foreach a [::xo::getObjectProperty $obj ${inst}args $proc_name] {
         if {[::xo::getObjectProperty $obj ${inst}argdefault $proc_name $a d]} {
           lappend defaults $a $d