$ LC_ALL=C svn diff
Index: openssl.scm
===================================================================
--- openssl.scm (revision 25842)
+++ openssl.scm (working copy)
@@ -455,8 +455,8 @@
       (##sys#setslot in 10 'ssl-socket)
       (##sys#setslot out 10 'ssl-socket)
       ;; second "reserved" slot
-      (##sys#setslot in 11 (ssl-make-port-data startup ssl tcp-in))
-      (##sys#setslot out 11 (ssl-make-port-data startup ssl tcp-out))
+      (##sys#setslot in 11 tcp-in)
+      (##sys#setslot out 11 tcp-out)
       (values in out))))
 
 (define (ssl-unwrap-context obj)