Index: openacs-4/packages/acs-tcl/tcl/security-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/security-procs.tcl,v
diff -u -r1.78.2.34 -r1.78.2.35
--- openacs-4/packages/acs-tcl/tcl/security-procs.tcl	22 Nov 2016 09:09:10 -0000	1.78.2.34
+++ openacs-4/packages/acs-tcl/tcl/security-procs.tcl	22 Nov 2016 09:13:24 -0000	1.78.2.35
@@ -2172,13 +2172,13 @@
         
         @author Gustaf Neumann
     } {
-        set cached_var_name ::$tokenname
-        if {[info exists $cached_var_name] && [set $globalTokenName] ne ""} {
-            return [set $cached_var_name]
+        set globalTokenName ::$tokenname
+        if {[info exists $globalTokenName] && [set $globalTokenName] ne ""} {
+            return [set $globalTokenName]
         }
         
         set token [token -tokenname $tokenname]
-        return [set $cached_var_name $token]
+        return [set $globalTokenName $token]
     }
 
     #