--- a/ExternalAddress.st	Fri Feb 07 15:58:32 2003 +0100
+++ b/ExternalAddress.st	Sun Feb 09 16:48:59 2003 +0100
@@ -249,12 +249,12 @@
 
 !ExternalAddress methodsFor:'printing & storing'!
 
-displayString
-    "return a printed representation of the receiver for displaying"
+printOn:aStream
+    "return a printed representation of the receiver"
 
-    ^ self class name , ' at:' , (self address printStringRadix:16)
-
-    "Modified: / 26.5.1998 / 16:11:50 / cg"
+    self class name printOn:aStream.
+    aStream nextPutAll:' at:'.
+    self address printOn:aStream base:16.
 ! !
 
 !ExternalAddress methodsFor:'private accessing'!
@@ -278,5 +278,5 @@
 !ExternalAddress class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalAddress.st,v 1.16 2002-04-09 18:58:14 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalAddress.st,v 1.17 2003-02-09 15:48:59 stefan Exp $'
 ! !