--- a/MethodFinder.st	Fri Mar 01 15:55:34 2019 +0100
+++ b/MethodFinder.st	Fri Mar 01 16:00:51 2019 +0100
@@ -1412,12 +1412,14 @@
                 sub class == Date ifTrue: [sub year isInteger ifFalse: [
                                 self error: 'stored into input date!!!!']].
                 sub class == Dictionary ifTrue: [
-                                sub size > 0 ifTrue: [
+                                sub size ~~ 0 ifTrue: [
                                         self error: 'store into dictionary']].
                 sub class == OrderedCollection ifTrue: [
                                 sub size > 4 ifTrue: [
                                         self error: 'store into OC']].
                 ].
+
+    "Modified: / 01-03-2019 / 16:00:34 / Claus Gittinger"
 !
 
 test3