--- a/ExternalAddress.st	Tue Nov 09 13:54:57 2010 +0000
+++ b/ExternalAddress.st	Tue Nov 09 16:24:28 2010 +0000
@@ -132,6 +132,12 @@
 
 beNull
     self setAddress:0
+!
+
+isNull
+    ^ self address = 0
+
+    "Created: / 26-10-2010 / 23:17:57 / cg"
 ! !
 
 !ExternalAddress methodsFor:'accessing'!
@@ -304,17 +310,18 @@
 !ExternalAddress class methodsFor:'documentation'!
 
 version
-    ^ '$Id: ExternalAddress.st 10544 2010-07-12 16:20:36Z vranyj1 $'
+    ^ '$Id: ExternalAddress.st 10590 2010-11-09 16:24:28Z vranyj1 $'
 !
 
 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 '
 !
 
 version_SVN
-    ^ '$Id: ExternalAddress.st 10544 2010-07-12 16:20:36Z vranyj1 $'
+    ^ '$Id: ExternalAddress.st 10590 2010-11-09 16:24:28Z vranyj1 $'
 ! !
 
 
 
 
+