--- a/Dictionary.st	Sat May 07 12:33:17 2016 +0200
+++ b/Dictionary.st	Sat May 07 12:35:14 2016 +0200
@@ -440,7 +440,9 @@
     ] ifFalse:[
         "I have been changed while performing the valueBlock"
 "/        self at:k put:newValue.
-        self error:'Dictionary: inconsistency while performing #at:ifAbsentPut:'.
+        self error:'Dictionary: inconsistency while performing #at:ifAbsentPut:' mayProceed:true.
+        "/ if you proceed, I will try again...
+        ^ self at:aKey ifAbsentPut:valueBlock.
     ].
     ^ newValue