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.61.2.18 -r1.61.2.19
--- openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl	24 Sep 2021 11:38:33 -0000	1.61.2.18
+++ openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl	30 Sep 2021 16:21:58 -0000	1.61.2.19
@@ -1305,13 +1305,13 @@
     #ns_log notice "final command: $__cmd"
 
     if {[uplevel {info exists __adp_remember_stub}]} {
-        set path [string range [uplevel {set __adp_remember_stub}] [string length $::acs::rootdir]+1 end]
-        set context "include $path"
+        set __path [string range [uplevel {set __adp_remember_stub}] [string length $::acs::rootdir]+1 end]
+        set __context "include $__path"
     } else {
-        set context ""
+        set __context ""
     }
 
-    ad_page_contract -warn -level 2 -context $context -form [{*}$__cmd] $docstring {*}$args
+    ad_page_contract -warn -level 2 -context $__context -form [{*}$__cmd] $docstring {*}$args
 }
 
 ####################