Index: openacs-4/packages/xowiki/tcl/form-field-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/form-field-procs.tcl,v
diff -u -r1.248.2.18 -r1.248.2.19
--- openacs-4/packages/xowiki/tcl/form-field-procs.tcl	21 Mar 2016 09:50:35 -0000	1.248.2.18
+++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl	21 Mar 2016 20:59:19 -0000	1.248.2.19
@@ -708,7 +708,6 @@
       #
       set label [${:object} title]
     }
-
     set l [::xowiki::Link create new -destroy_on_cleanup \
                -page ${:object} -type "image" -lang $(prefix) \
                [list -stripped_name $(stripped_name)] [list -label $label] \
@@ -793,7 +792,7 @@
         {viruscheck:boolean true}
         {sticky:boolean false}
         {searchable:boolean false}
-        {multiple:boolean true}
+        {multiple:boolean false}
         link_label
       }
   file instproc check=virus {value} {
@@ -1133,7 +1132,7 @@
   image instproc pretty_value {v} {
     set html ""
     array set "" [my entry_info]
-    foreach object_name $(name) revision_id [my get_from_value $v revision_id $v] {
+    foreach object_name $(name) revision_id [my get_from_value $v revision_id] {
       append html [my pretty_image \
                        -parent_id $(parent_id) \
                        -revision_id $revision_id \