--- a/HostNameLookupError.st	Wed Aug 07 18:10:06 2013 +0200
+++ b/HostNameLookupError.st	Fri Aug 09 16:22:26 2013 +0200
@@ -9,7 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
 "{ Package: 'stx:libbasic2' }"
 
 NameLookupError subclass:#HostNameLookupError
@@ -42,10 +41,20 @@
     NotifierString := 'Cannot resolve host name'
 ! !
 
+!HostNameLookupError methodsFor:'accessing'!
+
+nameToLookup
+    request notNil ifTrue:[
+        ^ request canonicalName.
+    ].
+    ^ nil.
+! !
+
 !HostNameLookupError class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/HostNameLookupError.st,v 1.3 2005-02-02 11:03:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/HostNameLookupError.st,v 1.4 2013-08-09 14:22:26 cg Exp $'
 ! !
 
+
 HostNameLookupError initialize!