Index: /trunk/source/level-1/l1-sockets.lisp
===================================================================
--- /trunk/source/level-1/l1-sockets.lisp	(revision 8273)
+++ /trunk/source/level-1/l1-sockets.lisp	(revision 8274)
@@ -1225,6 +1225,6 @@
               (syscall syscalls::socketcall 3 params)))))
     (cond ((or (eql err (- #$EINPROGRESS)) (eql err (- #$EINTR)))
-           (if (process-output-wait fd timeout)
-             (- (int-getsockopt fd #$SOL_SOCKET #$SO_ERROR))
+           (if (process-output-wait sockfd timeout)
+             (- (int-getsockopt sockfd #$SOL_SOCKET #$SO_ERROR))
              (- #$ETIMEDOUT)))
           (t err))))