Index: openacs-4/packages/chat/tcl/chat-ajax-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/tcl/chat-ajax-procs.tcl,v
diff -u -N -r1.12 -r1.13
--- openacs-4/packages/chat/tcl/chat-ajax-procs.tcl	18 Mar 2010 09:47:15 -0000	1.12
+++ openacs-4/packages/chat/tcl/chat-ajax-procs.tcl	17 Jun 2016 17:36:11 -0000	1.13
@@ -45,10 +45,10 @@
       set file [open [acs_root_dir]/$jspath]; set js [read $file]; close $file
 
       set path      [lindex [site_node::get_url_from_object_id -object_id $package_id] 0]
-      set login_url [ad_quotehtml "${path}ajax/chat?m=login&$context"]
-      set send_url  [ad_quotehtml "${path}ajax/chat?m=add_msg&$context&msg="]
-      set users_url [ad_quotehtml "${path}ajax/chat?m=get_users&$context"]
-      set html_url [ad_quotehtml [ad_conn url]?[ad_conn query]]
+      set login_url [ns_quotehtml "${path}ajax/chat?m=login&$context"]
+      set send_url  [ns_quotehtml "${path}ajax/chat?m=add_msg&$context&msg="]
+      set users_url [ns_quotehtml "${path}ajax/chat?m=get_users&$context"]
+      set html_url [ns_quotehtml [ad_conn url]?[ad_conn query]]
       regsub {client=ajax} $html_url {client=html} html_url
       
       return "\