$ LC_ALL=C diff -u ~/src/chicken-eggs/release/4/openssl/trunk/openssl.scm openssl.scm
--- /home/mario/src/chicken-eggs/release/4/openssl/trunk/openssl.scm    2011-10-01 11:14:34.000000000 -0300
+++ openssl.scm 2012-02-03 17:02:49.000000000 -0200
@@ -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 (ssl-port-data-tcp-port (ssl-make-port-data startup ssl tcp-in)))
+      (##sys#setslot out 11 (ssl-port-data-tcp-port (ssl-make-port-data startup ssl tcp-out)))
       (values in out))))
 
 (define (ssl-unwrap-context obj)