--- a/ExternalAddress.st	Tue Oct 26 12:47:38 2010 +0200
+++ b/ExternalAddress.st	Tue Oct 26 23:45:34 2010 +0200
@@ -132,6 +132,12 @@
 
 beNull
     self setAddress:0
+!
+
+isNull
+    ^ self address = 0
+
+    "Created: / 26-10-2010 / 23:17:57 / cg"
 ! !
 
 !ExternalAddress methodsFor:'accessing'!
@@ -304,9 +310,9 @@
 !ExternalAddress class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalAddress.st,v 1.25 2010-04-08 11:57:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalAddress.st,v 1.26 2010-10-26 21:45:34 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalAddress.st,v 1.25 2010-04-08 11:57:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalAddress.st,v 1.26 2010-10-26 21:45:34 cg Exp $'
 ! !