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.14 -r1.15
--- openacs-4/packages/edit-this-page/tcl/etp-procs.tcl	23 Sep 2003 19:13:20 -0000	1.14
+++ openacs-4/packages/edit-this-page/tcl/etp-procs.tcl	7 Oct 2003 18:46:24 -0000	1.15
@@ -318,6 +318,9 @@
 	db_1row get_page_attributes_other_revision "" -column_array pa
     }
 
+    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)]]
 
     # add in the context bar