--- a/ExternalAddress.st	Thu Apr 29 16:55:35 2010 +0100
+++ b/ExternalAddress.st	Tue May 04 12:50:05 2010 +0100
@@ -151,9 +151,7 @@
 instVarAt:index
     "redefined to suppress direct access to my address, which is a non-object"
 
-    index == 1 ifTrue:[
-        ^ self address
-    ].
+    index == 1 ifTrue:[^ self address].
     ^ super instVarAt:index
 
     "Created: / 3.9.1999 / 13:47:03 / ps"
@@ -306,13 +304,14 @@
 !ExternalAddress class methodsFor:'documentation'!
 
 version
-    ^ '$Id: ExternalAddress.st 10517 2010-04-26 18:26:38Z vranyj1 $'
+    ^ '$Id: ExternalAddress.st 10520 2010-05-04 11:50:05Z vranyj1 $'
 !
 
 version_CVS
-    ^ '§Header: /cvs/stx/stx/libbasic/ExternalAddress.st,v 1.24 2009/12/07 15:58:16 cg Exp §'
+    ^ 'Header: /cvs/stx/stx/libbasic/ExternalAddress.st,v 1.25 2010/04/08 11:57:19 cg Exp §'
 !
 
 version_SVN
-    ^ '$Id: ExternalAddress.st 10517 2010-04-26 18:26:38Z vranyj1 $'
+    ^ '$Id: ExternalAddress.st 10520 2010-05-04 11:50:05Z vranyj1 $'
 ! !
+