X-Git-Url: https://jxself.org/git/?p=8sync.git;a=blobdiff_plain;f=8sync%2Fsystems%2Fwebsocket%2Fframe.scm;fp=8sync%2Fsystems%2Fwebsocket%2Fframe.scm;h=831456a61cccb0580d9480cb7734f4be69ca2b89;hp=7a71dba9ff56483b44c222edef00b58e4d439280;hb=c3d4972e4596abbf307e91b260096d3782987624;hpb=e6d0f43cb80edc0ce864c7f54ec41bee6fd2f3c8

diff --git a/8sync/systems/websocket/frame.scm b/8sync/systems/websocket/frame.scm
index 7a71dba..831456a 100644
--- a/8sync/systems/websocket/frame.scm
+++ b/8sync/systems/websocket/frame.scm
@@ -1,5 +1,6 @@
 ;;; guile-websocket --- WebSocket client/server
 ;;; Copyright © 2015 David Thompson <davet@gnu.org>
+;;; Copyright © 2019 Rutger van Beusekom <rutger.van.beusekom@gmail.com>
 ;;;
 ;;; This file is part of guile-websocket.
 ;;;
@@ -309,7 +310,8 @@ MASKING-KEY."
 
     (let ((bv (get-bytevector-n port length)))
       (when masking-key
-        (mask-bytevector! bv masking-key))
+        (unless (eof-object? bv)
+          (mask-bytevector! bv masking-key)))
       bv))
 
   (let* ((type-byte (get-u8 port))