--- a/PeekableStream.st	Thu Oct 29 12:06:56 2015 +0100
+++ b/PeekableStream.st	Thu Oct 29 12:07:15 2015 +0100
@@ -435,7 +435,7 @@
                 someone notNil ifTrue:[someone source:aString]
             ].
             someone perform:#reader: with:(SourceFileLoader::SourceFileReader new) ifNotUnderstood:[].
-            compiler := Smalltalk::Compiler new.
+            compiler := (Smalltalk at:#Compiler) new.
             compiler allowUndeclaredVariables:false.
 
             sawExcla ifFalse:[
@@ -443,7 +443,7 @@
                 rslt := compiler evaluate:aString receiver:someone notifying:someone compile:false.
             ] ifTrue:[
                 "/ methodsFor chunks, etc., which generate a reader
-                Smalltalk::Compiler emptySourceNotificationSignal handle:[:ex |
+                (Smalltalk at:#Compiler) emptySourceNotificationSignal handle:[:ex |
                     ^ nil
                 ] do:[
                     rslt := compiler