--- a/Dictionary.st	Sat Jan 16 06:58:29 2016 +0100
+++ b/Dictionary.st	Sun Jan 17 06:49:17 2016 +0100
@@ -511,18 +511,6 @@
     "
 !
 
-decrementAt:aKey 
-    self incrementAt:aKey by:-1
-!
-
-incrementAt:aKey 
-    self incrementAt:aKey by:1
-!
-
-incrementAt:aKey by:count
-    self at:aKey put:(self at:aKey ifAbsent:[0])+count.
-!
-
 keyAtEqualValue:aValue
     "return the key whose value is equal (i.e. using #= for compare)
      to the argument, nil if none found.