Index: /trunk/ccl/level-1/l1-sockets.lisp
===================================================================
--- /trunk/ccl/level-1/l1-sockets.lisp	(revision 5493)
+++ /trunk/ccl/level-1/l1-sockets.lisp	(revision 5494)
@@ -917,5 +917,5 @@
   (if (fixnump port)
     port
-    (#+ppc-target progn #-ppc-target #_ntohs (port-as-inet-port port proto))))
+    (ntohs (port-as-inet-port port proto))))
 
 ;; Accepts host as specified by user, returns host number in network byte