Index: openacs-4/packages/xowiki/tcl/xowiki-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-procs.tcl,v
diff -u -r1.319 -r1.320
--- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	19 Jan 2009 08:51:05 -0000	1.319
+++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	19 Jan 2009 21:33:13 -0000	1.320
@@ -1342,7 +1342,8 @@
   }
 
   Page instproc get_content {} {
-    #my log "--"
+    #my msg "-- '[my set text]'"
+    set html ""; set mime ""
     foreach {html mime} [my set text] break
     if {[my render_adp]} {
       set html [my adp_subst $html]
@@ -1888,6 +1889,7 @@
   }
 
   PageInstance instproc get_content {} {
+    set html ""; set mime ""
     foreach {html mime} [my get_from_template text] break
     set html [my adp_subst $html]
     return [my substitute_markup $html]
@@ -1931,6 +1933,7 @@
   #
   Object instproc get_content {} {
     if {[[self]::payload info methods content] ne ""} {
+      set html ""; set mime ""
       foreach {html mime} [[self]::payload content] break
       if {[my render_adp]} {
         set html [my adp_subst $html]
@@ -2016,6 +2019,7 @@
     #my log "-- text='$text'"
     if {[lindex $text 0] ne ""} {
       my do_substitutions 0
+      set html ""; set mime ""
       foreach {html mime} [my set text] break
       set content [my substitute_markup $html]
     } elseif {[lindex $form 0] ne ""} {