--- a/ExternalAddress.st	Thu Apr 08 18:25:02 2010 +0100
+++ b/ExternalAddress.st	Fri Apr 09 19:02:18 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,11 +304,12 @@
 !ExternalAddress class methodsFor:'documentation'!
 
 version
-    ^ '$Id: ExternalAddress.st 10489 2009-12-27 20:16:54Z vranyj1 $'
+    ^ '$Id: ExternalAddress.st 10512 2010-04-09 18:02:18Z 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 §'
 ! !
 
 
+