Index: openacs-4/packages/acs-content-repository/tcl/content-item-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/content-item-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-content-repository/tcl/content-item-procs.tcl	13 Jun 2004 18:44:22 -0000	1.2
+++ openacs-4/packages/acs-content-repository/tcl/content-item-procs.tcl	28 Jun 2004 00:10:10 -0000	1.3
@@ -201,7 +201,9 @@
 
     set update_text ""
 
-    foreach {attribute value} $attributes {
+    foreach {attribute_list} $attributes {
+	set attribute [lindex $attribute_list 0]
+	set value [lindex $attribute_list 1]	
 	if {[lsearch $valid_attributes $attribute] > -1}  {
 
 	    # create local variable to use for binding