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 -N -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
     }