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 -N -r1.322 -r1.323
--- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	24 Jan 2009 16:47:55 -0000	1.322
+++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	25 Jan 2009 11:12:21 -0000	1.323
@@ -1933,13 +1933,14 @@
   #
   Object instproc get_content {} {
     if {[[self]::payload info methods content] ne ""} {
-      set html ""; set mime ""
-      foreach {html mime} [[self]::payload content] break
+      set html [[self]::payload content]
+      #my msg render-adp=[my render_adp]
       if {[my render_adp]} {
         set html [my adp_subst $html]
-        return [my substitute_markup $content]
+        return [my substitute_markup $html]
       } else {
-        return [list "<pre>[string map {> &gt; < &lt;} [my set text]]</pre>" text/html]
+        #return "<pre>[string map {> &gt; < &lt;} [my set text]]</pre>"
+        return $html
       }
     }
   }