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.29 -r1.30
--- openacs-4/packages/acs-content-repository/tcl/content-item-procs.tcl	7 Apr 2018 17:40:02 -0000	1.29
+++ openacs-4/packages/acs-content-repository/tcl/content-item-procs.tcl	23 Apr 2018 16:58:39 -0000	1.30
@@ -290,19 +290,18 @@
     set update_text ""
 
     foreach {attribute_list} $attributes {
-    set attribute [lindex $attribute_list 0]
-    set value [lindex $attribute_list 1]
-    if {$attribute in $valid_attributes}  {
+        lassign $attribute_list attribute value
+        if {$attribute in $valid_attributes}  {
 
-        # create local variable to use for binding
+            # create local variable to use for binding
 
-        set $attribute $value
-        if {$update_text ne ""} {
-        append update_text ","
+            set $attribute $value
+            if {$update_text ne ""} {
+                append update_text ","
+            }
+            append update_text " ${attribute} = :${attribute} "
         }
-        append update_text " ${attribute} = :${attribute} "
     }
-    }
     if {$update_text ne ""} {
 
     # we have valid attributes, update them