--- a/compiler/PPCProfilingContext.st	Tue Apr 21 17:20:11 2015 +0100
+++ b/compiler/PPCProfilingContext.st	Thu Apr 30 23:43:14 2015 +0200
@@ -73,10 +73,10 @@
 	| sender selector |
 
 	sender := thisContext sender.
-	(sender receiver isKindOf: PPCompiledParser) ifTrue: [ 
- 		selector := sender selector.
+	selector := (sender receiver isKindOf: PPCompiledParser) ifTrue: [ 
+ 		sender selector.
 	] ifFalse: [ 
- 		selector := sender receiver class.	
+ 		sender receiver class.	
 	].
 	remembers add: selector.
 	^ super remember
@@ -86,10 +86,10 @@
 	| selector sender |
 	
 	sender := thisContext sender.
-	(sender receiver isKindOf: PPCompiledParser) ifTrue: [ 
- 		selector := sender selector.
+	selector := (sender receiver isKindOf: PPCompiledParser) ifTrue: [ 
+ 		sender selector.
 	] ifFalse: [ 
- 		selector := sender receiver class.	
+ 		sender receiver class.	
 	].