Index: openacs-4/packages/xowiki/xowiki.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/xowiki.info,v
diff -u -r1.60.2.4 -r1.60.2.5
--- openacs-4/packages/xowiki/xowiki.info	2 Nov 2007 11:31:42 -0000	1.60.2.4
+++ openacs-4/packages/xowiki/xowiki.info	11 Dec 2007 22:18:10 -0000	1.60.2.5
@@ -8,7 +8,7 @@
     <singleton-p>f</singleton-p>
     <auto-mount>xowiki</auto-mount>
 
-    <version name="0.60.2" url="http://openacs.org/repository/download/apm/xowiki-0.60.2.apm">
+    <version name="0.60.3" url="http://openacs.org/repository/download/apm/xowiki-0.60.3.apm">
         <owner url="mailto:neumann@wu-wien.ac.at">Gustaf Neumann</owner>
         <summary>A more generic xotcl-based wikis example with object types
 and subtypes based on the content repository (with category support)</summary>
@@ -53,7 +53,7 @@
         <license>BSD-Style</license>
         <maturity>0</maturity>
 
-        <provides url="xowiki" version="0.60.2"/>
+        <provides url="xowiki" version="0.60.3"/>
         <requires url="acs-datetime" version="4.0"/>
         <requires url="categories" version="1.0d3"/>
         <requires url="file-storage" version="4.7d3"/>
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]