diff --git a/websockets.scm b/websockets.scm
index b04eac2..c4a761b 100644
--- a/websockets.scm
+++ b/websockets.scm
@@ -166,7 +166,7 @@
      outbound-port)
 
     (write-string data len outbound-port)
-   (flush-output (response-port (current-response)))
+    (flush-output outbound-port)
     #t))
 
 (define (send-message data #!optional (optype 'text) (ws (current-websocket)))