--- a/Socket.st	Thu May 01 20:25:54 1997 +0200
+++ b/Socket.st	Thu May 01 20:48:17 1997 +0200
@@ -978,42 +978,6 @@
     "
 ! !
 
-!Socket class methodsFor:'queries'!
-
-domainOfProtocol:aProtocol
-    "given a protocols name (i.e. tcp, udp etc) return the domain.
-     This method needs more ... - or is there a way to get this from the system ?"
-
-    "
-     tcp/ip stuff
-    "
-    (aProtocol = 'tcp') ifTrue:[^ #inet].
-    (aProtocol = 'udp') ifTrue:[^ #inet].
-    (aProtocol = 'ip')  ifTrue:[^ #inet].
-    "
-     unix domain
-    "
-    (aProtocol = 'ud')  ifTrue:[^ #unix].
-
-    "
-     add x25 stuff (if any) here ...
-    "
-    "
-     add appletalk stuff (if any) here ...
-    "
-    "
-     add other stuff (if any) here ...
-    "
-    ^ nil
-
-    "
-     Socket domainOfProtocol:'tcp'
-     Socket domainOfProtocol:'ucp'
-     Socket domainOfProtocol:(Socket protocolOfService:'nntp')
-     Socket domainOfProtocol:(Socket protocolOfService:'echo')
-    "
-! !
-
 !Socket class methodsFor:'host queries'!
 
 appletalkAddressOfHost:aHostName
@@ -1245,6 +1209,42 @@
      Socket hostWithIpAddress:(Socket ipAddressOfHost:'localhost') 
      Socket ipAddressOfHost:(Socket hostWithIpAddress:'127.0.0.1') 
     "
+! !
+
+!Socket class methodsFor:'queries'!
+
+domainOfProtocol:aProtocol
+    "given a protocols name (i.e. tcp, udp etc) return the domain.
+     This method needs more ... - or is there a way to get this from the system ?"
+
+    "
+     tcp/ip stuff
+    "
+    (aProtocol = 'tcp') ifTrue:[^ #inet].
+    (aProtocol = 'udp') ifTrue:[^ #inet].
+    (aProtocol = 'ip')  ifTrue:[^ #inet].
+    "
+     unix domain
+    "
+    (aProtocol = 'ud')  ifTrue:[^ #unix].
+
+    "
+     add x25 stuff (if any) here ...
+    "
+    "
+     add appletalk stuff (if any) here ...
+    "
+    "
+     add other stuff (if any) here ...
+    "
+    ^ nil
+
+    "
+     Socket domainOfProtocol:'tcp'
+     Socket domainOfProtocol:'ucp'
+     Socket domainOfProtocol:(Socket protocolOfService:'nntp')
+     Socket domainOfProtocol:(Socket protocolOfService:'echo')
+    "
 !
 
 networkLongOrderIsMSB
@@ -3722,5 +3722,5 @@
 !Socket class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Socket.st,v 1.90 1997-05-01 18:25:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Socket.st,v 1.91 1997-05-01 18:48:17 cg Exp $'
 ! !