Index: openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl,v
diff -u -r1.84.2.3 -r1.84.2.4
--- openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl	12 Sep 2007 10:58:49 -0000	1.84.2.3
+++ openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl	11 Dec 2007 22:18:10 -0000	1.84.2.4
@@ -58,11 +58,18 @@
       # if there is no field spec, use the default from the slot definitions
       set __spec  [expr {[my exists f.$__field] ? [my set f.$__field] : "="}]
       set __wspec [lindex $__spec 0]
-      #my msg "$__field wspec=$__wspec, spec=$__spec"
+      #my msg "$__field: wspec=$__wspec, spec=$__spec"
 
       # check first if we have widget_specs.
       # TODO: this part is likely to be removed in the future.
-      set s [$data get_rich_text_spec $__field ""]
+      if {
+          [$data istype ::xowiki::PlainPage] && $__field eq "text"
+          || [$data istype ::xowiki::File]   && $__field eq "text"
+        } {
+	set s ""
+      } else {
+	set s [$data get_rich_text_spec $__field ""]
+      }
       if {$s ne ""} {
 	set __spec $s
 	set __wspec [lindex $__spec 0]