--- a/ExternalAddress.st	Mon Jul 20 15:37:58 2020 +0100
+++ b/ExternalAddress.st	Wed Aug 12 12:05:58 2020 +0100
@@ -118,11 +118,14 @@
     self == anExternalAddress class ifTrue:[ 
         ^ anExternalAddress
     ].
-    ^ self new setAddress: anExternalAddress
+    ^ self basicNew 
+        initialize; 
+        setAddress: anExternalAddress; 
+        yourself
 
     "Created: / 24-12-2014 / 22:18:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 25-12-2014 / 10:33:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 05-06-2020 / 20:24:27 / Jan Vrany <jan.vrany@labware.com>"
+    "Modified: / 12-08-2020 / 12:04:48 / Jan Vrany <jan.vrany@labware.com>"
 !
 
 newAddress:addr