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.94.2.13 -r1.94.2.14
--- openacs-4/packages/acs-tcl/tcl/apm-procs.tcl	5 Dec 2013 11:11:17 -0000	1.94.2.13
+++ openacs-4/packages/acs-tcl/tcl/apm-procs.tcl	22 May 2014 21:16:10 -0000	1.94.2.14
@@ -1216,7 +1216,7 @@
 ad_proc -public apm_instance_name_from_id {package_id} {
     @return The name of the instance.
 } {
-    return [util_memoize "apm_instance_name_from_id_mem $package_id"]
+    return [util_memoize [list apm_instance_name_from_id_mem $package_id]]
 }
 
 ad_proc -private apm_instance_name_from_id_mem {package_id} {
@@ -1238,7 +1238,7 @@
 } {
     set var ::apm::package_id_from_key($package_key)
     if {[info exists $var]} {return [set $var]}
-    set $var [util_memoize "apm_package_id_from_key_mem $package_key"]
+    set $var [util_memoize [list apm_package_id_from_key_mem $package_key]]
     #set $var [ns_cache_eval ns:memoize apm_package_id_from_key_$package_key [list apm_package_id_from_key_mem $package_key]]
 }
 
@@ -1311,7 +1311,7 @@
     @return The package url of the instance of the package.
     only valid for singleton packages.
 } {
-    return [util_memoize "apm_package_url_from_key_mem $package_key"]
+    return [util_memoize [list apm_package_url_from_key_mem $package_key]]
 }
 
 ad_proc -private apm_package_url_from_key_mem {package_key} {
@@ -1342,7 +1342,7 @@
 
     @author Peter Marklund (peter@collaboraid.biz)
 } {
-    return [util_memoize "apm_package_key_from_version_id_mem $version_id"]
+    return [util_memoize [list apm_package_key_from_version_id_mem $version_id]]
     
 }