Index: usocket.asd
===================================================================
--- usocket.asd	(revision 114)
+++ usocket.asd	(working copy)
@@ -28,6 +28,8 @@
                                 :depends-on ("condition"))
                  #+cmu (:file "cmucl" :pathname "backend/cmucl"
                               :depends-on ("condition"))
+                 #+scl (:file "scl" :pathname "backend/scl"
+                              :depends-on ("condition"))
                  #+sbcl (:file "sbcl" :pathname "backend/sbcl"
                                :depends-on ("condition"))
                  #+lispworks (:file "lispworks" :pathname "backend/lispworks"
Index: usocket.lisp
===================================================================
--- usocket.lisp	(revision 114)
+++ usocket.lisp	(working copy)
@@ -147,8 +147,8 @@
       (string (let ((ip (ignore-errors
                           (dotted-quad-to-vector-quad host))))
                 (if (and ip (= 4 (length ip)))
-                    ip
-                  (host-to-hbo (get-host-by-name host)))))
+                    (host-byte-order ip)
+		    (host-to-hbo (get-host-by-name host)))))
       ((vector t 4) (host-byte-order host))
       (integer host))))
 
Index: condition.lisp
===================================================================
--- condition.lisp	(revision 114)
+++ condition.lisp	(working copy)
@@ -95,8 +95,8 @@
   ;; isn't really an error: there's just no data to return.
   ;; with lisp, we just return NIL (indicating no data) instead of
   ;; raising an exception...
-  (ns-host-not-found
-   ns-no-recovery)
+  (ns-host-not-found-error
+   ns-no-recovery-error)
   (ns-error))
 
 (define-condition ns-unknown-error (ns-error)
