--- a/PPContextMemento.st	Wed Nov 19 10:52:37 2014 +0000
+++ b/PPContextMemento.st	Mon Nov 24 00:09:23 2014 +0000
@@ -50,18 +50,16 @@
 !
 
 propertyAt: aKey ifAbsent: 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
-                ]
-
-    "Created: / 03-10-2014 / 02:17:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+	"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
+		]
 !
 
 propertyAt: aKey ifAbsentPut: aBlock