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.88 -r1.89
--- openacs-4/packages/acs-tcl/tcl/apm-procs.tcl	17 Oct 2010 21:06:09 -0000	1.88
+++ openacs-4/packages/acs-tcl/tcl/apm-procs.tcl	30 Nov 2010 14:44:31 -0000	1.89
@@ -1188,7 +1188,7 @@
 ad_proc -private apm_instance_name_from_id_mem {package_id} {
     unmemoized version of apm_instance_name_from_id
 } {
-    return [db_string apm_package_key_from_id {
+    return [db_string apm_package_instance_name_from_id {
 	select instance_name from apm_packages where package_id = :package_id
     } -default ""]
 }
@@ -2053,6 +2053,7 @@
 
 } {
     db_dml update_package_key {}
+    util_memoize_flush "apm_package_key_from_id_mem $package_id"
 
     set node_id [site_node::get_node_id_from_object_id -object_id $package_id]
     if { $node_id ne "" } {