0
@@ -86,6 +86,8 @@ ipForYahoo := DNSResolver ipForHostName("yahoo.com")
0
 </pre>
0
 */
0
 
0
+	readTimeout ::= 10
0
+
0
   init := method(
0
     //doc DNSResolver dnsServers Returns list of DNSServer objects used for lookups.
0
     self dnsServers := List clone
0
@@ -130,7 +132,7 @@ ipForYahoo := DNSResolver ipForHostName("yahoo.com")
0
       dnsServers foreach(dnsServer,
0
         debugWriteln("sending query")
0
         //try(ip = dnsServer ipForHostName(hostName))
0
-				ip = dnsServer ipForHostName(hostName)
0
+				ip = dnsServer ipForHostName(hostName, readTimeout)
0
         ip isError ifTrue(continue)
0
         ip ifNonNil(break)
0
       )