--- a/compiler/PPCProfilingContext.st	Thu Apr 30 23:43:14 2015 +0200
+++ b/compiler/PPCProfilingContext.st	Sun May 10 06:28:36 2015 +0100
@@ -13,131 +13,131 @@
 !PPCProfilingContext methodsFor:'gt'!
 
 gtReport: composite
-	<gtInspectorPresentationOrder: 40>
-	composite table 
-		title: 'Report';
-		column: 'Info' evaluated: [ :each | each key printString ];
-		column: 'Value' evaluated: [ :each | each value printString ];
-		display: [:context | context asReportTable ].
+    <gtInspectorPresentationOrder: 40>
+    composite table 
+        title: 'Report';
+        column: 'Info' evaluated: [ :each | each key printString ];
+        column: 'Value' evaluated: [ :each | each value printString ];
+        display: [:context | context asReportTable ].
 ! !
 
 !PPCProfilingContext methodsFor:'initialization'!
 
 initialize
-	super initialize.
-	self reset
+    super initialize.
+    self reset
 !
 
 reset
-	invocations := OrderedCollection new.
-	remembers := OrderedCollection new.
-	restores := OrderedCollection new.
-	
-	lwRemembers := OrderedCollection new.
-	lwRestores := OrderedCollection new.
-	
-	totalSize := 0.
+    invocations := OrderedCollection new.
+    remembers := OrderedCollection new.
+    restores := OrderedCollection new.
+    
+    lwRemembers := OrderedCollection new.
+    lwRestores := OrderedCollection new.
+    
+    totalSize := 0.
 ! !
 
 !PPCProfilingContext methodsFor:'profiling'!
 
 invocations
-	^ invocations 
+    ^ invocations 
 !
 
 lwRemember
-	| selector |
-	selector := thisContext sender selector.
-	lwRemembers add: selector.
+    | selector |
+    selector := thisContext sender selector.
+    lwRemembers add: selector.
 
-	^ super lwRemember
+    ^ super lwRemember
 !
 
 lwRestore: whatever
-	| selector |
-	selector := thisContext sender selector.
-	lwRestores add: selector.
+    | selector |
+    selector := thisContext sender selector.
+    lwRestores add: selector.
 
-	^ super lwRestore: whatever.
+    ^ super lwRestore: whatever.
 !
 
 methodFinished: selector
-	"Nothing to do for now"
+    "Nothing to do for now"
 !
 
 methodInvoked: selector
-	invocations add: selector
+    invocations add: selector
 !
 
 remember
-	| sender selector |
+    | sender selector |
 
-	sender := thisContext sender.
-	selector := (sender receiver isKindOf: PPCompiledParser) ifTrue: [ 
+    sender := thisContext sender.
+    selector := (sender receiver isKindOf: PPCompiledParser) ifTrue: [ 
  		sender selector.
-	] ifFalse: [ 
+    ] ifFalse: [ 
  		sender receiver class.	
-	].
-	remembers add: selector.
-	^ super remember
+    ].
+    remembers add: selector.
+    ^ super remember
 !
 
 restore: whatever
-	| selector sender |
-	
-	sender := thisContext sender.
-	selector := (sender receiver isKindOf: PPCompiledParser) ifTrue: [ 
+    | selector sender |
+    
+    sender := thisContext sender.
+    selector := (sender receiver isKindOf: PPCompiledParser) ifTrue: [ 
  		sender selector.
-	] ifFalse: [ 
+    ] ifFalse: [ 
  		sender receiver class.	
-	].
-	
-	
-	restores add: selector.
-	
-	^ super restore: whatever
+    ].
+    
+    
+    restores add: selector.
+    
+    ^ super restore: whatever
 !
 
 stream: aStream
-	totalSize := totalSize + aStream size.
-	^ super stream: aStream
+    totalSize := totalSize + aStream size.
+    ^ super stream: aStream
 ! !
 
 !PPCProfilingContext methodsFor:'reporting'!
 
 asReportTable
-	^{ 
-		#'invocations per character (NOT PRECISE YET)' -> (self invocationCount / (totalSize + 1.0)).
-		#'lwBacktrack per character' -> (self lwRestoreCount / (totalSize + 1.0)).
-		#'backtrack per character' -> (self restoreCount / (totalSize + 1.0)).
-		#'total stream size' -> totalSize .
-		#'invocation count' -> self invocationCount.
-		#'lwRemember count' -> self lwRememberCount.
-		#'lwRestore count' -> self lwRestoreCount.
-		#'remember count' -> self rememberCount.
-		#'restore count' -> self restoreCount.
-	
-	}
+    ^{ 
+        #'invocations per character (NOT PRECISE YET)' -> (self invocationCount / (totalSize + 1.0)).
+        #'lwBacktrack per character' -> (self lwRestoreCount / (totalSize + 1.0)).
+        #'backtrack per character' -> (self restoreCount / (totalSize + 1.0)).
+        #'total stream size' -> totalSize .
+        #'invocation count' -> self invocationCount.
+        #'lwRemember count' -> self lwRememberCount.
+        #'lwRestore count' -> self lwRestoreCount.
+        #'remember count' -> self rememberCount.
+        #'restore count' -> self restoreCount.
+    
+    }
 !
 
 invocationCount
-	^ invocations size
+    ^ invocations size
 !
 
 lwRememberCount
-	^ lwRemembers size
+    ^ lwRemembers size
 !
 
 lwRestoreCount
-	^ lwRestores size
+    ^ lwRestores size
 !
 
 rememberCount
-	^ remembers size
+    ^ remembers size
 !
 
 restoreCount
-	^ restores size
+    ^ restores size
 ! !
 
 !PPCProfilingContext class methodsFor:'documentation'!