--- a/ReadEvalPrintLoop.st	Mon May 07 08:42:24 2018 +0200
+++ b/ReadEvalPrintLoop.st	Mon May 07 08:47:43 2018 +0200
@@ -1107,7 +1107,7 @@
 
                     traceFlag == true ifTrue:[
                         mthd := Compiler
-                                    compile:('doIt ^[',chunk,']') forClass:nil 
+                                    compile:('doIt ^[',chunk,']') forClass:(self class) 
                                     inCategory:'doit' notifying:self 
                                     install:false.
 
@@ -1124,13 +1124,16 @@
                         profilingFlag == true ifTrue:[ 
                             MessageTally spyDetailedOn:[
                                 value := (compilerClass new requestor:self) 
-                                            evaluate:chunk
+                                            evaluate:chunk 
+                                            in:self class receiver:self
                                             compile:true.
                             ].    
                         ] ifFalse:[    
                             us := Time microsecondsToRun:[
                                 value := (compilerClass new requestor:self)
-                                            evaluate:chunk compile:true.
+                                            evaluate:chunk 
+                                            in:self class receiver:self
+                                            compile:true.
                             ].
 
                             timingFlag == true ifTrue:[