Index: openacs-4/packages/xotcl-core/tcl/message-relay-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/Attic/message-relay-procs.tcl,v
diff -u -N -r1.1.2.3 -r1.1.2.4
--- openacs-4/packages/xotcl-core/tcl/message-relay-procs.tcl	7 Mar 2019 17:02:30 -0000	1.1.2.3
+++ openacs-4/packages/xotcl-core/tcl/message-relay-procs.tcl	25 Apr 2019 11:34:29 -0000	1.1.2.4
@@ -78,11 +78,11 @@
       # capabilities of the client browser. So the incoming message
       # has to be recoded multiple times.
       #
+      set msg [encoding convertto utf-8 $msg]
       if {$mode eq "scripted"} {
         #::sec_handler_reset
-        set emsg [encoding convertto utf-8 $msg]
         #ns_log notice "SEND data <$msg> encoded <$emsg>"
-        set jsMsg "<script type='text/javascript' nonce='$::__csp_nonce'>\nvar data = $emsg;\n\
+        set jsMsg "<script type='text/javascript' nonce='$::__csp_nonce'>\nvar data = $msg;\n\
                parent.getData(data);</script>\n"
         set msg [format %x [string length $jsMsg]]\r\n$jsMsg\r\n
       }