--- a/compiler/PPCContextMemento.st	Tue Apr 21 17:20:11 2015 +0100
+++ b/compiler/PPCContextMemento.st	Thu Apr 30 23:43:14 2015 +0200
@@ -44,16 +44,14 @@
 !
 
 propertyAt: aKey ifAbsent: aBlock
-        "Answer the property value associated with aKey or, if aKey isn't found, answer the result of evaluating aBlock."
+	"Answer the property value associated with aKey or, if aKey isn't found, answer the result of evaluating aBlock."
         
-        properties isNil
-                ifTrue: [ ^ aBlock value ]
-                ifFalse: [ 
-                        (properties includesKey: aKey) ifTrue: [ 
-                                ^ (properties at: aKey) copy
-                        ].
-                        ^ aBlock value
-                ]
+	properties isNil ifFalse: [ 
+		(properties includesKey: aKey) ifTrue: [ 
+			^ (properties at: aKey) copy
+		].
+	].
+	^ aBlock value
 
     "Modified: / 15-04-2015 / 11:19:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !