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 -N -r1.54.2.31 -r1.54.2.32
--- openacs-4/packages/xowiki/tcl/chat-procs.tcl	3 Nov 2023 17:52:15 -0000	1.54.2.31
+++ openacs-4/packages/xowiki/tcl/chat-procs.tcl	26 Jan 2024 10:30:35 -0000	1.54.2.32
@@ -425,20 +425,6 @@
     }
   }
 
-  Chat instproc js_encode_msg {msg} {
-    set json [string trim [:json_encode_msg $msg]]
-    if {$json ne ""} {
-      return [subst {
-        <script nonce='[security::csp::nonce]'>
-           let data = $json;
-           parent.getData(data);
-        </script>\n
-      }]
-    } else {
-      return
-    }
-  }
-
   Chat instproc broadcast_msg {msg} {
     #:log "--chat broadcast_msg"
     ${:mr} send_to_subscriber chat-${:chat_id} [:json_encode_msg $msg]