Index: openacs-4/packages/acs-templating/tcl/doc-tcl-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/doc-tcl-procs.tcl,v
diff -u -r1.14 -r1.15
--- openacs-4/packages/acs-templating/tcl/doc-tcl-procs.tcl	4 Apr 2018 18:51:56 -0000	1.14
+++ openacs-4/packages/acs-templating/tcl/doc-tcl-procs.tcl	25 Apr 2018 19:23:26 -0000	1.15
@@ -90,7 +90,7 @@
     @see doc::util::text_divider
 } {
 
-  set indices_list [list]
+  set indices_list {}
   set last_index -1
    
   while { [regexp -indices $marker $text marker_idx] } {
@@ -119,7 +119,7 @@
     upvar $text_ref text
     
     set indices_list [doc::util::find_marker_indices $text $marker]
-    set result_list [list]
+    set result_list {}
 
     # first check for no markers present
     if { $indices_list eq "end" } {
@@ -289,9 +289,9 @@
     # if we wanted to include the source text for the procedure as well:
     # set proc_info [list [list proc_name $proc_name] [list source $source_text]]
 
-    set proc_param [list]
-    set proc_option [list]
-    set proc_see [list]
+    set proc_param {}
+    set proc_option {}
+    set proc_see {}
 
     set directives [lsort -index 0 [template::parse_directives $comment_text]]
 
@@ -566,9 +566,9 @@
   # with respect to namespaces in the same order as the list result
 
   upvar namespace_list namespace_list 
-  set namespace_list [list]
+  set namespace_list {}
 
-  set result [list]
+  set result {}
 
   foreach dir $dir_list {