Index: /trunk/ccl/level-1/l1-sockets.lisp
===================================================================
--- /trunk/ccl/level-1/l1-sockets.lisp	(revision 439)
+++ /trunk/ccl/level-1/l1-sockets.lisp	(revision 440)
@@ -282,5 +282,5 @@
 (defmethod close :before ((s file-listener-socket) &key abort)
   (declare (ignore abort))
-  (let* ((path (local-socket-filename (socket-device s))))
+  (let* ((path (local-socket-filename (socket-device s) s)))
     (when path (%delete-file path))))