X-Git-Url: https://jxself.org/git/?p=mudsync.git;a=blobdiff_plain;f=mudsync%2Fnetworking.scm;h=33ad424f3234c497f01e8de21bf0580bad128af0;hp=228a89fd4377da5da2ec4ada75fddb4127402d4b;hb=6f7c1d4f9a2043c16f83facef6b3216e45e14f40;hpb=467af07b765d0e2f6863a1028ce696414c6cfc74

diff --git a/mudsync/networking.scm b/mudsync/networking.scm
index 228a89f..33ad424 100644
--- a/mudsync/networking.scm
+++ b/mudsync/networking.scm
@@ -27,7 +27,7 @@
   #:use-module (oop goops)
 
   ;; Formatting
-  #:use-module (sxml simple)
+  #:use-module (mudsync scrubl)
 
   ;; used by web server only
   #:use-module (sxml simple)
@@ -194,9 +194,7 @@
 (define* (nm-send-to-client-id nm message #:key client data)
   "Send DATA to TO-CLIENT id"
   (define formatted-data
-    (call-with-output-string
-      (lambda (p)
-        (sxml->xml data p))))
+    (scrubl-write scrubl-sxml data))
   (define client-obj (hash-ref (nm-clients nm) client))
   (match client-obj
     (#f (throw 'no-such-client