--- a/SocketAddress.st	Mon Nov 16 16:45:10 2009 +0100
+++ b/SocketAddress.st	Mon Nov 16 16:46:39 2009 +0100
@@ -13,7 +13,8 @@
 
 UninterpretedBytes variableByteSubclass:#SocketAddress
 	instanceVariableNames:''
-	classVariableNames:'DomainToClassMapping Verbose LastName LastPort LastType LastAddr'
+	classVariableNames:'DomainToClassMapping Verbose LastName LastPort LastType LastAddr
+		LastTime'
 	poolDictionaries:''
 	category:'OS-Sockets'
 !
@@ -160,7 +161,9 @@
     LastName = name ifTrue:[
         LastPort = portNrOrName ifTrue:[
             LastType = socketTypeSymbol ifTrue:[
-                ^ LastAddr 
+                Timestamp now - LastTime <= 30 ifTrue:[
+                    ^ LastAddr 
+                ]
             ]
         ]
     ].
@@ -176,6 +179,7 @@
             ].
         ].
     ].
+    LastTime := Timestamp now.
     LastName := name.
     LastPort := portNrOrName.
     LastType := socketTypeSymbol.
@@ -746,9 +750,9 @@
 !SocketAddress class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/SocketAddress.st,v 1.32 2009-11-16 15:45:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/SocketAddress.st,v 1.33 2009-11-16 15:46:39 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/SocketAddress.st,v 1.32 2009-11-16 15:45:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/SocketAddress.st,v 1.33 2009-11-16 15:46:39 cg Exp $'
 ! !