Index: openacs-4/packages/acs-object-management/tcl/attribute-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-object-management/tcl/attribute-procs.tcl,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/acs-object-management/tcl/attribute-procs.tcl	13 Mar 2011 22:56:22 -0000	1.3
+++ openacs-4/packages/acs-object-management/tcl/attribute-procs.tcl	26 Jul 2011 23:29:42 -0000	1.4
@@ -163,9 +163,8 @@
 
     @return The attribute_id of the given attribute.
 } {
-    upvar $array local
     return [db_string \
-               -cache_pool acs_metadata \
-               -cache_key t::${object_type}::attribute::get_attribute_id \
-               get_attribute_id]
+                -cache_pool acs_metadata \
+                -cache_key t::${object_type}::a::${attribute_name}::get_attribute_id \
+                get_attribute_id {}]
 }