Index: openacs-4/packages/acs-service-contract/tcl/acs-service-contract-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-service-contract/tcl/acs-service-contract-procs.tcl,v
diff -u -r1.25.2.3 -r1.25.2.4
--- openacs-4/packages/acs-service-contract/tcl/acs-service-contract-procs.tcl	29 Sep 2013 11:50:55 -0000	1.25.2.3
+++ openacs-4/packages/acs-service-contract/tcl/acs-service-contract-procs.tcl	23 Jul 2014 21:27:53 -0000	1.25.2.4
@@ -122,7 +122,7 @@
     # LARS
     set exists_p [acs_sc_binding_exists_p $contract $impl]
 
-    #set exists_p [util_memoize "acs_sc_binding_exists_p $contract $impl"]
+    #set exists_p [util_memoize [list acs_sc_binding_exists_p $contract $impl]]
 
     if {![set exists_p]} {return ""}
     
Index: openacs-4/packages/acs-subsite/tcl/group-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/group-procs.tcl,v
diff -u -r1.38.2.2 -r1.38.2.3
--- openacs-4/packages/acs-subsite/tcl/group-procs.tcl	5 Oct 2013 13:02:11 -0000	1.38.2.2
+++ openacs-4/packages/acs-subsite/tcl/group-procs.tcl	23 Jul 2014 21:27:53 -0000	1.38.2.3
@@ -187,7 +187,7 @@
       END;
     "
 
-    util_memoize_flush "group::get_title_not_cached -group_id $group_id"
+  util_memoize_flush [list group::get_title_not_cached -group_id $group_id]
     return $object_type
 }
 
@@ -324,10 +324,10 @@
     @author Timo Hentschel (timo@timohentschel.de)
     @creation-date 2005-07-26
 } {
-    util_memoize_flush "group::get_members_not_cached -group_id $group_id -type party"
-    util_memoize_flush "group::get_members_not_cached -group_id $group_id -type user"
-    util_memoize_flush "group::get_members_not_cached -group_id $group_id -type person"
-    util_memoize_flush_regexp "group::member_p_not_cached -group_id $group_id (.*)"
+  util_memoize_flush [list group::get_members_not_cached -group_id $group_id -type party]
+  util_memoize_flush [list group::get_members_not_cached -group_id $group_id -type user]
+  util_memoize_flush [list group::get_members_not_cached -group_id $group_id -type person]
+  util_memoize_flush_regexp [list group::member_p_not_cached -group_id $group_id (.*)]
 }
 
 ad_proc -public group::permission_p { 
@@ -419,7 +419,7 @@
 	    set title = :pretty_name
 	    where object_id = :group_id
 	}
-	util_memoize_flush "group::get_title_not_cached -group_id $group_id"
+      util_memoize_flush [list group::get_title_not_cached -group_id $group_id]
     }
 }
 
Index: openacs-4/packages/acs-subsite/tcl/package-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/package-procs.tcl,v
diff -u -r1.25.4.4 -r1.25.4.5
--- openacs-4/packages/acs-subsite/tcl/package-procs.tcl	27 Oct 2013 14:26:46 -0000	1.25.4.4
+++ openacs-4/packages/acs-subsite/tcl/package-procs.tcl	23 Jul 2014 21:27:53 -0000	1.25.4.5
@@ -146,7 +146,7 @@
     }
     
     if { $supertype ne "" && $object_name ne "" } {
-	foreach row [util_memoize "package_table_columns_for_type \"$supertype\""] {
+      foreach row [util_memoize [list package_table_columns_for_type $supertype]] {
 	    lassign $row table_name column_name
 
 	    # Note that limit_to doesn't apply here as we always need
@@ -262,8 +262,8 @@
     # performance. -mbryzek
 
     foreach object_type $object_type_list {
-	if { [util_memoize_cached_p "package_table_columns_for_type \"$object_type\""] } {
-	    util_memoize_flush "package_table_columns_for_type \"$object_type\""
+      if { [util_memoize_cached_p [list package_table_columns_for_type $object_type]] } {
+	util_memoize_flush [list package_table_columns_for_type $object_type]
 	}
     }
     
@@ -439,8 +439,8 @@
 	 start with t.object_type = :object_type 
        connect by prior t.supertype = t.object_type
     } {
-	if { [util_memoize_cached_p "package_object_view_helper -start_with $ancestor_type $object_type"] } {
-	    util_memoize_flush "package_object_view_helper -start_with $ancestor_type $object_type"
+      if { [util_memoize_cached_p [list package_object_view_helper -start_with $ancestor_type $object_type]] } {
+	util_memoize_flush [list package_object_view_helper -start_with $ancestor_type $object_type]
 	}
     }
 
@@ -451,8 +451,8 @@
 	 start with t.object_type = :object_type 
        connect by prior t.object_type = t.supertype
     } {
-	if { [util_memoize_cached_p "package_object_view_helper -start_with $object_type $sub_type"] } {
-	    util_memoize_flush "package_object_view_helper -start_with $object_type $sub_type"
+      if { [util_memoize_cached_p [list package_object_view_helper -start_with $object_type $sub_type]] } {
+	util_memoize_flush [list package_object_view_helper -start_with $object_type $sub_type]
 	}
     }
 }
@@ -476,7 +476,7 @@
     if {$refresh_p == "t"} {
 	package_object_view_reset $object_type
     }
-    return [util_memoize "package_object_view_helper -start_with $start_with $object_type"]
+    return [util_memoize [list package_object_view_helper -start_with $start_with $object_type]]
 }
 
 
@@ -824,7 +824,7 @@
     # This will prevent us from passing in any parameters that are
     # not defined
 
-    foreach arg [util_memoize "package_plsql_args \"$package_name\""] {
+    foreach arg [util_memoize [list package_plsql_args $package_name]] {
 	set real_params([string toupper $arg]) 1
     }