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 -N -r1.47 -r1.48
--- openacs-4/packages/acs-tcl/tcl/defs-procs.tcl	13 Jan 2005 13:55:55 -0000	1.47
+++ openacs-4/packages/acs-tcl/tcl/defs-procs.tcl	29 Jan 2005 18:43:28 -0000	1.48
@@ -8,7 +8,7 @@
     @cvs-id defs-procs.tcl,v 1.19.2.2 2003/03/28 13:43:28 lars Exp
 }
 
-ad_proc -public ad_acs_version {} {
+ad_proc -public ad_acs_version_no_cache {} {
     The OpenACS version of this instance. Uses the version name
     of the acs-kernel package.
 
@@ -18,7 +18,15 @@
 
     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
+} {
+    return [util_memoize ad_acs_version_no_cache]
+}
+
 ad_proc -public ad_acs_release_date {} {
     The OpenACS release date of this instance. Uses the release date
     of the acs-kernel package.