--- a/ExternalStream.st	Fri Sep 01 14:28:20 2017 +0200
+++ b/ExternalStream.st	Sat Sep 02 17:38:47 2017 +0200
@@ -4744,8 +4744,10 @@
 
 printOn:aStream
     aStream
-	nextPutAll:self className;
-	nextPutAll:'(handle:('.
+        nextPutAll:self className;
+        nextPut:$(.
+    handleType printOn:aStream.
+    aStream nextPutAll:':('.
     handle printOn:aStream.
     aStream nextPutAll:'))'
 ! !