Index: openacs-4/packages/xowiki/www/chat.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/www/Attic/chat.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/xowiki/www/chat.tcl	20 Nov 2018 17:48:25 -0000	1.1
+++ openacs-4/packages/xowiki/www/chat.tcl	20 Nov 2018 18:41:05 -0000	1.2
@@ -9,16 +9,17 @@
   id:integer
   s
   msg:optional,allhtml
+  class:token
   {mode ""}
 }
 
-if {![nsv_get ::xowiki_chat_class $id chat_class]} {
+if {![::xo::ChatClass is_chat_p $class]} {
   ns_returnnotfound
   ad_script_abort
 }
 
 #ns_log notice "--chat m=$m session_id=$s [clock format [lindex [split $s .] 1] -format %H:%M:%S] mode=$mode" 
-$chat_class create c1 -destroy_on_cleanup -chat_id $id -session_id $s -mode $mode
+$class create c1 -destroy_on_cleanup -chat_id $id -session_id $s -mode $mode
 switch -- $m {
   add_msg {
     #ns_log notice "--c call c1 $m '$msg'"