Index: openacs-4/packages/xotcl-core/tcl/chat-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/Attic/chat-procs.tcl,v
diff -u -r1.23 -r1.23.2.1
--- openacs-4/packages/xotcl-core/tcl/chat-procs.tcl	16 Jun 2015 20:35:32 -0000	1.23
+++ openacs-4/packages/xotcl-core/tcl/chat-procs.tcl	18 Sep 2015 07:37:05 -0000	1.23.2.1
@@ -58,7 +58,7 @@
     my instvar array now
     set user_id [expr {[info exists uid] ? $uid : [my set user_id]}]
     set color   [my user_color $user_id]
-    set msg     [ad_quotehtml $msg]
+    set msg     [ns_quotehtml $msg]
     my log "-- msg=$msg"
     
     if {$get_new