Index: openacs-4/packages/acs-tcl/tcl/apm-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/apm-procs.tcl,v
diff -u -r1.93 -r1.94
--- openacs-4/packages/acs-tcl/tcl/apm-procs.tcl	4 Apr 2013 08:32:11 -0000	1.93
+++ openacs-4/packages/acs-tcl/tcl/apm-procs.tcl	8 Apr 2013 15:50:25 -0000	1.94
@@ -1162,14 +1162,17 @@
     db_1row select_version_info {} -column_array row
 }
 
+namespace eval ::acs {}
 #
 # package_id -> package_key
 #
 
 ad_proc -public apm_package_key_from_id {package_id} {
     @return The package key of the instance.
 } {
-    return [util_memoize "apm_package_key_from_id_mem $package_id"]
+    set key ::acs::apm_package_key_from_id($package_id)
+    if {[info exists $key]} {return [set $key]}
+    set $key [apm_package_key_from_id_mem $package_id]
 }
 
 ad_proc -private apm_package_key_from_id_mem {package_id} {