diff --git a/contrib/sockets/sockets.lisp b/contrib/sockets/sockets.lisp
index e79cb7502..4d35958fa 100644
--- a/contrib/sockets/sockets.lisp
+++ b/contrib/sockets/sockets.lisp
@@ -293,8 +293,7 @@ directly instantiated."))
 			    proto-num))))
     (if (= fd -1) (socket-error "socket"))
     (setf (slot-value socket 'file-descriptor) fd
-	  (slot-value socket 'protocol) proto-num
-	  (slot-value socket 'type) type)
+	  (slot-value socket 'protocol) proto-num)
     #+ ignore
     (sb-ext:finalize socket (lambda () (sockint::close fd)))))