Index: openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl,v
diff -u -r1.49 -r1.50
--- openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl	23 Apr 2018 07:17:58 -0000	1.49
+++ openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl	25 Apr 2018 19:23:26 -0000	1.50
@@ -63,8 +63,8 @@
     @author Lars Pind (lars@pinds.com)
     @creation-date 24 July 2000
 } {
-    set ::ad_page_contract_complaints [list]
-    set ::ad_page_contract_errorkeys [list]
+    set ::ad_page_contract_complaints {}
+    set ::ad_page_contract_errorkeys {}
     set ::ad_page_contract_context $context
 }
 
@@ -136,7 +136,7 @@
     @author Lars Pind (lars@pinds.com)
     @creation-date 25 July 2000
 } {
-    array set ::ad_page_contract_error_string [list]
+    array set ::ad_page_contract_error_string {}
 
     foreach { errorkeys text } $errorstrings {
         foreach errorkey $errorkeys {
@@ -541,7 +541,7 @@
 
 
     if { [llength $args] == 0 } {
-        set query [list]
+        set query {}
     } else {
 
         set valid_args { validate errors return_errors properties }   ;# add type later
@@ -553,7 +553,7 @@
         } else {
             # otherwise, accept a -query argument
             lappend valid_args query
-            set query [list]
+            set query {}
         }
 
         ad_arg_parser $valid_args $args
@@ -599,16 +599,16 @@
     # array apc_flags($name):         contains a list of the flags that apply
     #
 
-    set apc_formals [list]
-    array set apc_formal [list]
-    array set apc_default_value [list]
+    set apc_formals {}
+    array set apc_formal {}
+    array set apc_default_value {}
 
-    array set apc_internal_filter [list]
-    array set apc_filters [list]
-    array set apc_post_filters [list]
-    array set apc_filter_parameters [list]
+    array set apc_internal_filter {}
+    array set apc_filters {}
+    array set apc_post_filters {}
+    array set apc_filter_parameters {}
 
-    array set apc_flags [list]
+    array set apc_flags {}
 
     foreach element $query {
         set element_len [llength $element]
@@ -631,7 +631,7 @@
         }
 
         set pre_flag_list [split [string tolower $flags] ,]
-        set flag_list [list]
+        set flag_list {}
 
         # find parameterized flags
         foreach flag $pre_flag_list {
@@ -664,7 +664,7 @@
         # Sort the flag list according to priority
         #
 
-        set flag_list_for_sorting [list]
+        set flag_list_for_sorting {}
         foreach flag $flag_list {
             lappend flag_list_for_sorting [list [ad_page_contract_filter_priority $flag] $flag]
         }
@@ -676,9 +676,9 @@
         # apc_flags($name) is for documentation only.
         #
 
-        set apc_flags($name) [list]
-        set apc_filters($name) [list]
-        set apc_post_filters($name) [list]
+        set apc_flags($name) {}
+        set apc_filters($name) {}
+        set apc_post_filters($name) {}
 
         foreach flag_entry $flag_list_sorted {
             set flag [lindex $flag_entry 1]
@@ -769,10 +769,10 @@
     #                                    for the validation block. Once the block has executed, this entry
     #                                    self destructs, i.e. unset apc_validation_blocks($name)
 
-    array set apc_validation_blocks [list]
+    array set apc_validation_blocks {}
 
     if { ![info exists validate] } {
-        set validate [list]
+        set validate {}
     }
 
     set validate_len [llength $validate]
@@ -812,7 +812,7 @@
             }
             incr i
         } else {
-            set requires [list]
+            set requires {}
         }
         set code [lindex $validate $i]
         set apc_validation_blocks($name) [list $requires $code]
@@ -846,7 +846,7 @@
 
     # This is the array in which we store the signature variables as we come across them
     # Whenever we see a variable named foo:sig, we record it here as apc_signatures(foo).
-    array set apc_signatures [list]
+    array set apc_signatures {}
 
     for { set form_counter_i 0 } { $form_counter_i < $form_size } { incr form_counter_i } {