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.203 -r1.204
--- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	5 Feb 2008 15:20:00 -0000	1.203
+++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	10 Feb 2008 13:20:22 -0000	1.204
@@ -45,6 +45,7 @@
       -parameter {
         {lang en}
         {render_adp 1}
+        {do_substitutions 1}
         {absolute_links 0}
       } \
       -form ::xowiki::WikiForm
@@ -811,6 +812,7 @@
     if {[my set mime_type] eq "text/enhanced"} {
       set source [ad_enhanced_text_to_html $source]
     }
+    if {![my do_substitutions]} {return [lindex $source 0]}
     set content ""
     set l " "; #use one byte trailer for regexps for escaped content
     foreach l0 [split [lindex $source 0] \n] {