X-Git-Url: https://jxself.org/git/?a=blobdiff_plain;f=8sync%2Fsystems%2Fwebsocket%2Fserver.scm;h=7a7526d054f8a4fadb645d6448eedc84d887ccdb;hb=0f7daa4787860cbbc739a51140fb8257b7fc4fef;hp=81c9244bcfdca42cfe96fae2e10036da12a4bde7;hpb=0de8ac7a40e29cbc84924936faa13acf7c5f29db;p=8sync.git

diff --git a/8sync/systems/websocket/server.scm b/8sync/systems/websocket/server.scm
index 81c9244..7a7526d 100644
--- a/8sync/systems/websocket/server.scm
+++ b/8sync/systems/websocket/server.scm
@@ -69,7 +69,7 @@ string."
 (define-actor <websocket-server> (<web-server>)
   ((ws-send websocket-server-send))
   (upgrade-paths #:init-value `(("websocket" .
-                                 ,(wrap-apply websocket-client-loop)))
+                                 ,(live-wrap websocket-client-loop)))
                  #:allocation #:each-subclass
                  #:accessor .upgrade-paths)