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

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