--- a/EncodedStream.st	Thu Oct 29 11:33:21 2015 +0100
+++ b/EncodedStream.st	Thu Oct 29 12:06:56 2015 +0100
@@ -211,7 +211,7 @@
         ]
     ].
 
-    Smalltalk::Compiler isNil ifTrue:[
+    (Smalltalk at:#Compiler) isNil ifTrue:[
         self isFileStream ifTrue:[
             Transcript show:('[' , self pathName , '] ').
         ].