Index: /trunk/source/level-1/l1-sockets.lisp
===================================================================
--- /trunk/source/level-1/l1-sockets.lisp	(revision 13381)
+++ /trunk/source/level-1/l1-sockets.lisp	(revision 13382)
@@ -238,7 +238,6 @@
 
 #-windows-target
-(defun %gai-strerror (errno)
-  (let* ((err (abs errno))
-         (p (#_gai_strerror err)))
+(defun %gai-strerror (err)
+  (let ((p (#_gai_strerror err)))
     (if (%null-ptr-p p)
       (format nil "Unknown nameserver error ~d" err)
@@ -248,6 +247,6 @@
   "Creates and signals (via error) one of two socket error 
 conditions, based on the state of the arguments."
-  (when (< errno 0)
-    (setq errno (- errno)))
+  (unless nameserver-p
+    (setq errno (abs errno)))
   (if stream
     (error (make-condition 'socket-error