Index: openacs-4/packages/acs-tcl/tcl/defs-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/defs-procs.tcl,v
diff -u -r1.81.2.7 -r1.81.2.8
--- openacs-4/packages/acs-tcl/tcl/defs-procs.tcl	26 Jan 2020 17:10:55 -0000	1.81.2.7
+++ openacs-4/packages/acs-tcl/tcl/defs-procs.tcl	19 May 2020 19:15:36 -0000	1.81.2.8
@@ -8,25 +8,16 @@
     @cvs-id $Id$
 }
 
-ad_proc -public ad_acs_version_no_cache {} {
-    The OpenACS version of this instance. Uses the version name
-    of the acs-kernel package.
-
-    @author Peter Marklund
-} {
-    apm_version_get -package_key acs-kernel -array kernel
-
-    return $kernel(version_name)
-}
 ad_proc -public ad_acs_version {} {
     The OpenACS version of this instance. Uses the version name
     of the acs-kernel package.
 
     @author Peter Marklund
 } {
-    set key ::acs::version
-    if {[info exists $key]} {return [set $key]}
-    set $key [util_memoize ad_acs_version_no_cache]
+    return [acs::per_thread_cache eval -key acs-tcl.acs_version {
+        apm_version_get -package_key acs-kernel -array kernel
+        set kernel(version_name)
+    }]
 }
 
 ad_proc -public ad_acs_release_date {} {