--- a/Dictionary.st	Tue May 12 15:40:59 2015 +0100
+++ b/Dictionary.st	Sat May 16 06:48:37 2015 +0200
@@ -1975,7 +1975,7 @@
     |n|
 
     n := self class goodSizeFrom:minSize.
-    n == keyArray size ifTrue:[
+    (keyArray notNil and:[n == keyArray size]) ifTrue:[
         keyArray atAllPut:nil.
         valueArray atAllPut:nil.
     ] ifFalse:[
@@ -2267,10 +2267,10 @@
 !Dictionary class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Dictionary.st,v 1.125 2015-05-09 11:58:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Dictionary.st,v 1.126 2015-05-15 06:54:25 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Dictionary.st,v 1.125 2015-05-09 11:58:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Dictionary.st,v 1.126 2015-05-15 06:54:25 cg Exp $'
 ! !