diff -ur drakma-0.9.0/request.lisp drakma-hacked/request.lisp
--- drakma-0.9.0/request.lisp	2007-06-30 01:15:56.000000000 +0200
+++ drakma-hacked/request.lisp	2007-07-07 18:45:44.000000000 +0200
@@ -410,7 +410,11 @@
                     #+:allegro
                     (socket:make-ssl-client-stream http-stream)
                     #-:allegro
-                    (cl+ssl:make-ssl-client-stream http-stream)))
+                    (let ((s http-stream))
+		      (setq http-stream
+			    (cl+ssl:make-ssl-client-stream 
+			     (cl+ssl:stream-fd s)
+			     :close-callback (lambda () (close s)))))))
             (cond (stream
                    (setf (flexi-stream-element-type http-stream)
                          #+:lispworks 'lw:simple-char #-:lispworks 'character
Only in drakma-hacked: request.lisp.orig
Only in drakma-hacked: request.lisp.rej
Only in drakma-hacked: request.lisp~