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.14.2.1 -r1.14.2.2
--- openacs-4/packages/acs-subsite/tcl/package-procs.tcl	25 Dec 2004 21:33:40 -0000	1.14.2.1
+++ openacs-4/packages/acs-subsite/tcl/package-procs.tcl	13 Apr 2005 06:32:08 -0000	1.14.2.2
@@ -587,9 +587,17 @@
 "
 }
 
-ad_proc package_object_attribute_list { 
+ad_proc package_object_attribute_list {
     { -start_with "acs_object" }
     { -include_storage_types {type_specific} }
+    object_type
+} {
+    return [util_memoize "package_object_attribute_list_cached -start_with $start_with -include_storage_types $include_storage_types $object_type"]
+}
+
+ad_proc package_object_attribute_list_cached { 
+    { -start_with "acs_object" }
+    { -include_storage_types {type_specific} }
     object_type 
 } {
     Returns a list of lists all the attributes (column name or