--- a/Smalltalk.st	Fri Jan 20 20:17:13 2017 +0000
+++ b/Smalltalk.st	Wed Jan 25 14:28:27 2017 +0000
@@ -2249,7 +2249,10 @@
     <resource: #obsolete>
     "evaluate the argument, aBlock for all keys in the Smalltalk dictionary"
 
+    self obsoleteMethodWarning:'please use #keysDo:'.
     self keysDo:aBlock
+
+    "Modified: / 20-01-2017 / 17:52:40 / stefan"
 !
 
 allMethodCategories