Index: openacs-4/packages/edit-this-page/tcl/etp-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/edit-this-page/tcl/etp-procs.tcl,v
diff -u -r1.17.2.1 -r1.17.2.2
--- openacs-4/packages/edit-this-page/tcl/etp-procs.tcl	19 Dec 2004 17:28:48 -0000	1.17.2.1
+++ openacs-4/packages/edit-this-page/tcl/etp-procs.tcl	30 Dec 2004 18:23:36 -0000	1.17.2.2
@@ -297,6 +297,7 @@
 	# further processing on this page
 	ad_script_abort
     }
+
 }
 
 
@@ -327,8 +328,10 @@
     if {[empty_string_p $pa(mime_type)]} {
 	set pa(mime_type) "text/html"
     }
-	    set pa(content) [template::util::richtext get_property html_value [list $pa(content) $pa(mime_type)]]
 
+    if {![string equal "text/html" $pa(mime_type)]} {
+	set pa(content) [template::util::richtext get_property html_value [list $pa(content) $pa(mime_type)]]
+    }
     # add in the context bar
     if { $name == "index" } {
 	set cb [ad_context_bar]