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 -N -r1.36.2.28 -r1.36.2.29
--- openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl	3 Jun 2016 06:06:17 -0000	1.36.2.28
+++ openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl	27 Nov 2016 12:19:35 -0000	1.36.2.29
@@ -998,7 +998,7 @@
 		    # This is an array variable, so we need to loop through each name.* variable for this package we have ...
 		    set array_list ""
 		    foreach arrayvar [ns_cache names util_memoize] {
-			if [regexp [list [ad_conn session_id] [ad_conn package_id] "$formal_name."] $arrayvar] {
+			if {[regexp [list [ad_conn session_id] [ad_conn package_id] "$formal_name."] $arrayvar]} {
 			    set arrayvar [lindex $arrayvar [llength $arrayvar]-1]
 			    if { $array_list ne "" } {
 				append array_list " "