--- a/Collection.st	Fri Dec 14 19:46:07 2018 +0100
+++ b/Collection.st	Mon Dec 17 17:44:47 2018 +0100
@@ -16,11 +16,11 @@
 "{ NameSpace: Smalltalk }"
 
 Object subclass:#Collection
-        instanceVariableNames:''
-        classVariableNames:'EmptyCollectionSignal InvalidKeySignal NotEnoughElementsSignal
-                ValueNotFoundSignal'
-        poolDictionaries:''
-        category:'Collections-Abstract'
+	instanceVariableNames:''
+	classVariableNames:'EmptyCollectionSignal InvalidKeySignal NotEnoughElementsSignal
+		ValueNotFoundSignal'
+	poolDictionaries:''
+	category:'Collections-Abstract'
 !
 
 !Collection class methodsFor:'documentation'!
@@ -564,7 +564,12 @@
         self at:aKey
     ] on:KeyNotFoundError do:absentBlock.
 
+    "
+     #(1 2 3 4) at:5 ifAbsent:['bla']
+    "
+
     "Created: / 28-04-2017 / 14:25:58 / stefan"
+    "Modified (comment): / 17-12-2018 / 17:33:06 / Claus Gittinger"
 !
 
 at:aKey ifNilOrAbsentPut:valueBlock