--- a/Dictionary.st	Mon Aug 13 19:11:21 2012 +0200
+++ b/Dictionary.st	Tue Aug 14 09:05:43 2012 +0200
@@ -232,12 +232,6 @@
     ^ self = aDictionary
 ! !
 
-!Dictionary methodsFor:'Squeak Compatibility'!
-
-hasKeyStartingWith: aString
-	self keysDo: [:key | (key beginsWith: aString) ifTrue: [^ true]].
-	^ false
-! !
 
 !Dictionary methodsFor:'accessing'!
 
@@ -511,14 +505,13 @@
 
     keySet := self emptyCollectionForKeys.
     keyArray do:[:key |
-	(key notNil and:[key ~~ DeletedEntry]) ifTrue:[
-	    key == NilEntry ifTrue:[
-		 "No, Set does not accept nil as an element!!"
-"/                keySet add:nil
-	    ] ifFalse:[
-		keySet add:key
-	    ]
-	]
+        (key notNil and:[key ~~ DeletedEntry]) ifTrue:[
+            key == NilEntry ifTrue:[
+                keySet add:nil
+            ] ifFalse:[
+                keySet add:key
+            ]
+        ]
     ].
     ^ keySet
 !
@@ -2062,9 +2055,9 @@
 !Dictionary class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Dictionary.st,v 1.107 2012-08-13 16:46:45 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Dictionary.st,v 1.108 2012-08-14 07:05:43 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Dictionary.st,v 1.107 2012-08-13 16:46:45 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Dictionary.st,v 1.108 2012-08-14 07:05:43 stefan Exp $'
 ! !