--- a/Dictionary.st	Mon Apr 15 19:24:03 2019 +0200
+++ b/Dictionary.st	Mon Apr 15 19:34:25 2019 +0200
@@ -917,10 +917,9 @@
      WARNING: do not add elements while iterating over the receiver.
               Iterate over a copy to do this."
 
-
     self ~~ aCollection ifTrue:[
-        "/ ouch: OrderedDictionary is sequenceable but enumerates values only, not pairs
-        (aCollection isSequenceable and:[aCollection isDictionary not]) ifTrue:[
+        aCollection isSequenceable ifTrue:[
+            "Association like objects"
             aCollection do:[:eachPair |
                 self at:eachPair key put:eachPair value.
             ].
@@ -946,6 +945,7 @@
     "
 
     "Modified: / 04-11-2018 / 19:18:55 / Claus Gittinger"
+    "Modified (format): / 15-04-2019 / 19:28:36 / Stefan Vogel"
 !
 
 addOrReplace:anAssociation