Index: openacs-4/packages/acs-tcl/tcl/memoize-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/memoize-procs.tcl,v
diff -u -N -r1.4 -r1.4.2.1
--- openacs-4/packages/acs-tcl/tcl/memoize-procs.tcl	16 Sep 2002 22:30:46 -0000	1.4
+++ openacs-4/packages/acs-tcl/tcl/memoize-procs.tcl	5 Mar 2003 14:40:42 -0000	1.4.2.1
@@ -136,6 +136,14 @@
     }
 }
 
+ad_proc -public util_memoize_initialized_p {} {
+    Return 1 if the util_memoize cache has been initialized
+    and is ready to be used and 0 otherwise.
+    
+    @author Peter Marklund
+} {
+    return [ad_decode [catch {ns_cache set util_memoize __util_memoize_installed_p 1} error] 0 1 0]
+}
 
 ad_proc -public util_memoize_flush_regexp {
     -log:boolean