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.61.2.21 -r1.61.2.22
--- openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl	14 Jul 2022 13:31:29 -0000	1.61.2.21
+++ openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl	14 Jul 2022 13:35:32 -0000	1.61.2.22
@@ -264,11 +264,11 @@
     Flag parameters are a list of values expressed as <value>|[<value>..]
 
 } {
+    # First, unescape the parenthesys
     regsub -all {\\\(} $flag_parameters {(} flag_parameters
     regsub -all {\\\)} $flag_parameters {)} flag_parameters
 
     set parameters [list]
-    #ns_log warning flag_parameters=$flag_parameters
     while {[string length $flag_parameters] > 0} {
         set flag_parameter ""
 
@@ -277,7 +277,6 @@
         while { [set quoted_sep_i [string first {\|} $flag_parameters]] >= 0 } {
             append flag_parameter [string range $flag_parameters 0 ${quoted_sep_i}-1]|
             set flag_parameters [string range $flag_parameters ${quoted_sep_i}+2 end]
-            #ns_log warning "Found"
         }
 
         # Now that all escaped occurrences are over, find the first
@@ -288,18 +287,15 @@
             # our parameter and we are done.
             append flag_parameter $flag_parameters
             set flag_parameters ""
-            #ns_log warning flag_parameter=$flag_parameter,END,$pi
         } else {
             # Our parameter is all of the remaining string up to the
             # pipe character. We will keep parsing further.
             append flag_parameter [string range $flag_parameters 0 ${pi}-1]
             set flag_parameters [string range $flag_parameters ${pi}+1 end]
-            #ns_log warning flag_parameter=$flag_parameter,CONTINUE
         }
         lappend parameters $flag_parameter
     }
 
-    #ns_log warning parameters=$parameters
     return $parameters
 }
 
@@ -1851,7 +1847,6 @@
     @author Gustaf Neumann
     @creation-date Feb, 2018
 } {
-    #ns_log warning $value|$set
     if { $value ni $set } {
         ad_complain [_ acs-tcl.lt_name_is_not_valid]
         return 0