--- a/Behavior.st	Wed Aug 09 13:57:43 2006 +0200
+++ b/Behavior.st	Wed Aug 09 14:02:44 2006 +0200
@@ -1127,22 +1127,17 @@
     dict := self methodDictionary.
     newDict := dict removeKeyAndCompress:aSelector.
     newDict isNil ifTrue:[ 
-	^ false.
+        ^ false.
     ].
     self setMethodDictionary:newDict.
 
-"
-    [
-	|nargs|
-	nargs := aSelector numArgs.
-	ObjectMemory flushMethodCache.
-	ObjectMemory flushInlineCachesWithArgs:nargs.
-    ] value
-"
     "
      actually, we would do better with less flushing ...
     "
-    ObjectMemory flushCaches.
+    "/ObjectMemory flushCaches.
+
+    "yes, we can:"
+    ObjectMemory flushCachesForSelector:aSelector.
     ^ true
 
     "Modified: 12.6.1996 / 11:54:29 / stefan"
@@ -4475,5 +4470,5 @@
 !Behavior class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.257 2006-08-07 11:06:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.258 2006-08-09 12:02:44 cg Exp $'
 ! !