--- a/ExternalStream.st	Sun Dec 27 19:45:23 2009 +0000
+++ b/ExternalStream.st	Sun Dec 27 20:16:54 2009 +0000
@@ -4211,6 +4211,16 @@
     self subclassResponsibility
 ! !
 
+!ExternalStream methodsFor:'printing & storing'!
+
+printOn:aStream
+    aStream 
+        nextPutAll:self className; 
+        nextPutAll:'(handle:('.
+    handle printOn:aStream.
+    aStream nextPutAll:'))'
+! !
+
 !ExternalStream methodsFor:'private'!
 
 clearEOF
@@ -5614,13 +5624,14 @@
 !ExternalStream class methodsFor:'documentation'!
 
 version
-    ^ '$Id: ExternalStream.st 10480 2009-12-02 21:30:55Z vranyj1 $'
+    ^ '$Id: ExternalStream.st 10489 2009-12-27 20:16:54Z vranyj1 $'
 !
 
 version_CVS
-    ^ '§Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.330 2009/11/17 16:53:15 cg Exp §'
+    ^ '§Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.331 2009/12/21 15:37:28 stefan Exp §'
 ! !
 
 ExternalStream initialize!
 
 
+