Index: openacs-4/packages/acs-messaging/tcl/acs-messaging-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-messaging/tcl/acs-messaging-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-messaging/tcl/acs-messaging-procs.tcl	8 Feb 2002 04:52:15 -0000	1.3
+++ openacs-4/packages/acs-messaging/tcl/acs-messaging-procs.tcl	11 Sep 2003 07:44:16 -0000	1.4
@@ -46,7 +46,7 @@
     if {[string eq $mime_type "text/plain"]} {
 	set result "<pre>[ad_quotehtml $content]</pre>"
     } elseif {[string eq $mime_type "text/plain; format=flowed"]} {
-	set result [ad_text_to_html $content]
+	set result [ad_text_to_html -- $content]
     } elseif {[string eq $mime_type "text/html"]} {
 	set result $content
     } else {
Index: openacs-4/packages/forums/www/message-chunk.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/www/Attic/message-chunk.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/forums/www/message-chunk.tcl	7 Jan 2003 18:58:09 -0000	1.7
+++ openacs-4/packages/forums/www/message-chunk.tcl	11 Sep 2003 07:44:24 -0000	1.8
@@ -25,7 +25,7 @@
 if {![exists_and_not_null forum_moderated_p]} {set forum_moderated_p 0}
 
 if { [string is false $message(html_p)] } {
-    set message(content) [ad_text_to_html $message(content)]
+    set message(content) [ad_text_to_html -- $message(content)]
 }
 
 # convert emoticons to images if the parameter is set
Index: openacs-4/packages/news/www/item.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news/www/item.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/news/www/item.tcl	29 Oct 2002 08:01:14 -0000	1.7
+++ openacs-4/packages/news/www/item.tcl	11 Sep 2003 07:46:47 -0000	1.8
@@ -56,7 +56,7 @@
 
     # text-only body
     if {[info exists html_p] && [string equal $html_p "f"]} {
-	set publish_body "[ad_text_to_html $publish_body]"
+	set publish_body [ad_text_to_html -- $publish_body]
     }
     
     if { [ad_parameter SolicitCommentsP "news" 0] &&
Index: openacs-4/packages/news/www/preview.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news/www/preview.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/news/www/preview.tcl	18 Nov 2002 17:59:10 -0000	1.7
+++ openacs-4/packages/news/www/preview.tcl	11 Sep 2003 07:46:47 -0000	1.8
@@ -155,7 +155,7 @@
 set creator_link "<a href=\"/shared/community-member?user_id=$user_id\">$creator_name</a>"
 
 if { [info exists html_p] && [string match $html_p "f"] } {
-    set publish_body "[ad_text_to_html $publish_body]"
+    set publish_body [ad_text_to_html -- $publish_body]
 }
 
 ad_return_template
Index: openacs-4/packages/notes/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/notes/www/index.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/notes/www/index.tcl	16 Jan 2003 13:51:28 -0000	1.3
+++ openacs-4/packages/notes/www/index.tcl	11 Sep 2003 07:44:05 -0000	1.4
@@ -41,7 +41,7 @@
   order by creation_date
 } {
   set title [ad_quotehtml $title]
-  set body [ad_text_to_html $body]
+  set body [ad_text_to_html -- $body]
 }
 
 
Index: openacs-4/packages/notes/www/view-one.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/notes/www/view-one.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/notes/www/view-one.tcl	16 Jan 2003 13:51:28 -0000	1.3
+++ openacs-4/packages/notes/www/view-one.tcl	11 Sep 2003 07:44:05 -0000	1.4
@@ -18,6 +18,6 @@
 }
 
 set title [ad_quotehtml $title]
-set body [ad_text_to_html $body]
+set body [ad_text_to_html -- $body]
 
 ad_return_template