--- a/Workspace.st	Thu Oct 29 00:12:11 2015 +0100
+++ b/Workspace.st	Thu Oct 29 09:49:36 2015 +0100
@@ -2188,7 +2188,7 @@
 
     |code|
 
-    compilerClass == Smalltalk::Compiler ifFalse:[
+    compilerClass == (Smalltalk at:#Compiler) ifFalse:[
 	"sigh - this measurement will include the time to compile - sigh"
 	aProfiler spyDetailedOn:[ self doIt ].
 	^ self.
@@ -2204,7 +2204,7 @@
 
     |code|
 
-    compilerClass == Smalltalk::Compiler ifFalse:[
+    compilerClass == (Smalltalk at:#Compiler) ifFalse:[
         "sigh - this measurement will include the time to compile - sigh"
         [ self doIt ] benchmark:'execution time: '.
         ^ self.