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.210 -r1.211
--- openacs-4/packages/xowiki/tcl/form-field-procs.tcl	26 Mar 2012 10:33:22 -0000	1.210
+++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl	30 Mar 2012 09:07:02 -0000	1.211
@@ -645,9 +645,11 @@
 	       [list -stripped_name $(stripped_name)] [list -label $label] \
 	       -parent_id $(parent_id) -item_id $(item_id)]
 
-    set revision_id [my get_from_value $value revision_id]
-    if {$revision_id ne ""} {
-      $l revision_id $revision_id
+    if {[my istype file]} {
+      set revision_id [my get_from_value $value revision_id]
+      if {$revision_id ne ""} {
+	$l revision_id $revision_id
+      }
     }
 
     foreach option {