--- a/EncodedStream.st	Thu Oct 29 06:54:02 2015 +0100
+++ b/EncodedStream.st	Fri Oct 30 06:59:59 2015 +0100
@@ -211,7 +211,7 @@
         ]
     ].
 
-    Smalltalk::Compiler isNil ifTrue:[
+    (Smalltalk at:#Compiler) isNil ifTrue:[
         self isFileStream ifTrue:[
             Transcript show:('[' , self pathName , '] ').
         ].