Index: openacs-4/contrib/packages/bcms-ui-base/resources/image-form.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/bcms-ui-base/resources/image-form.tcl,v
diff -u -N -r1.4 -r1.5
--- openacs-4/contrib/packages/bcms-ui-base/resources/image-form.tcl	27 Oct 2003 10:17:21 -0000	1.4
+++ openacs-4/contrib/packages/bcms-ui-base/resources/image-form.tcl	31 Oct 2003 08:07:20 -0000	1.5
@@ -53,10 +53,10 @@
 
     set additional_properties {}
     if {[info exists width]} {
-        lappend additional_properties "width $width"
+        lappend additional_properties [list width $width]
     }
     if {[info exists height]} {
-        lappend additional_properties "height $height"
+        lappend additional_properties [list height $height]
     }
 
     db_dml update_event "update images set [bcms::parse_properties -properties $additional_properties -return_format update] where image_id = :revision_id"
@@ -74,8 +74,8 @@
                          -storage_type file]
 
         set additional_properties {}
-        if {[exists_and_not_null width]} { lappend additional_properties "width $width" }
-        if {[exists_and_not_null height]} { lappend additional_properties "height $height" }
+        if {[exists_and_not_null width]} { lappend additional_properties [list width $width] }
+        if {[exists_and_not_null height]} { lappend additional_properties [list height $height] }
         set revision_id [bcms::revision::upload_file_revision -item_id $item_id \
                              -title $title -description $description \
                              -upload_file $upload_file \