# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1462617314 -7200
# Node ID 749958a29e1d0404b566120ff8c22f1aa24cde1b
# Parent  5f6b9dbd32c6ca382a1e621245843b47a51cac1c
#QUALITY by cg
class: Dictionary
changed: #at:ifAbsentPut:
can proceed in a debugger.

diff -r 5f6b9dbd32c6 -r 749958a29e1d Dictionary.st
--- 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