Index: openacs-4/packages/xowiki/tcl/chat-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/chat-procs.tcl,v
diff -u -r1.54.2.14 -r1.54.2.15
--- openacs-4/packages/xowiki/tcl/chat-procs.tcl	4 Jul 2019 17:51:39 -0000	1.54.2.14
+++ openacs-4/packages/xowiki/tcl/chat-procs.tcl	23 Jul 2019 14:14:59 -0000	1.54.2.15
@@ -381,7 +381,7 @@
   ::xo::ChatClass create Chat -superclass ::xo::Chat
 
   ::xo::ChatClass proc is_chat_p {class} {
-    return [expr {[:isobject $class] && [$class class] eq [self]}]
+    return [expr {[nsf::is object $class] && [$class class] eq [self]}]
   }
 
   ::xo::ChatClass instproc get_mode {} {