Index: /trunk/ccl/level-1/l1-sockets.lisp
===================================================================
--- /trunk/ccl/level-1/l1-sockets.lisp	(revision 5224)
+++ /trunk/ccl/level-1/l1-sockets.lisp	(revision 5225)
@@ -77,5 +77,5 @@
                    (ldb (byte 8 24) x)))))
   (defun %bswap16 (x)
-    (declare (type (unsigned-byte 32) x))
+    (declare (type (unsigned-byte 16) x))
     (dpb (ldb (byte 8 0) x)
          (byte 8 8)