Index: openssl.socket.scm
===================================================================
--- openssl.socket.scm  (revision 46502)
+++ openssl.socket.scm  (working copy)
@@ -533,7 +533,7 @@
                                    (##core#inline "C_utf_decode" buf start)))))))))
              ;; read-bytevector!
              read-bytevector:
-             (lambda (port size buf offset)
+             (lambda (buf offset end)
                (startup)
                 (when peeked
                   (let ((len (##sys#size peeked)))
@@ -542,7 +542,7 @@
                     (set! peeked #f)
                     (set! offset (+ offset len))))
                (ssl-call/timeout 'ssl-read!
-                                 (lambda () (ssl-read! ssl buf offset size))
+                                 (lambda () (ssl-read! ssl buf offset (- end offset)))
                                  fd (tcp-read-timeout)
                                  "SSL read timed out"))))
     (out