--- old.lisp	2009-02-16 22:47:10.000000000 +0200
+++ ssl.lisp	2009-02-19 19:44:44.000000000 +0200
@@ -39,7 +39,6 @@
                         :documentation "A pathname designator for a
 private key file in PEM format, or \(only on LispWorks) NIL if the
 certificate file contains the private key.")
-   #+:lispworks
    (ssl-privatekey-password :initform nil
                             :initarg :ssl-privatekey-password
                             :reader acceptor-ssl-privatekey-password
@@ -85,11 +84,12 @@
   (call-next-method acceptor
                     (cl+ssl:make-ssl-server-stream stream
                                                    :certificate (acceptor-ssl-certificate-file acceptor)
-                                                   :key (acceptor-ssl-privatekey-file acceptor))))
+                                                   :key (acceptor-ssl-privatekey-file acceptor)
+                                                   :password (acceptor-ssl-privatekey-password acceptor))))
 
 ;; LispWorks implementation
 
-#+lispworks
+#+:lispworks
 (defun make-ssl-server-stream (socket-stream &key certificate-file privatekey-file privatekey-password)
   "Given the acceptor socket stream SOCKET-STREAM attaches SSL to the
 stream using the certificate file CERTIFICATE-FILE and the private key
@@ -113,7 +113,7 @@
 
 #+:lispworks
 (defmethod initialize-connection-stream ((acceptor ssl-acceptor) stream)
-  ;; attach SSL to the stream if necessary
+  "attach SSL to the stream if necessary"
   (call-next-method acceptor
                     (make-ssl-server-stream stream
                                             :certificate-file (acceptor-ssl-certificate-file acceptor)