--- a/ObjectMemory.st	Fri Sep 10 12:38:19 2004 +0200
+++ b/ObjectMemory.st	Fri Sep 10 12:39:45 2004 +0200
@@ -958,10 +958,10 @@
 flushCachesForSelector:aSelector
     "flush method and inline caches for aSelector"
 
-%{  /* NOCONTEXT */
-    __flushMethodCacheForSelector(aSelector);
-    __flushInlineCachesForSelector(aSelector);
-%}
+    self flushMethodCacheForSelector:aSelector.
+
+    "/ self flushInlineCachesForSelector:aSelector.
+    self flushInlineCachesWithArgs:(aSelector numArgs).
 !
 
 flushInlineCaches
@@ -978,7 +978,9 @@
 %{  /* NOCONTEXT */
     __flushInlineCachesForAndNargs(aClass, __intVal(nargs));
 %}
-!
+! !
+
+!ObjectMemory class privateMethodsFor:'cache management'!
 
 flushInlineCachesForClass:aClass
     "flush inlinecaches for calls to aClass."
@@ -986,7 +988,9 @@
 %{  /* NOCONTEXT */
     __flushInlineCachesFor(aClass);
 %}
-!
+! !
+
+!ObjectMemory class methodsFor:'cache management'!
 
 flushInlineCachesForSelector:aSelector
     "flush inlinecaches for sends of aSelector"
@@ -5108,7 +5112,7 @@
 !ObjectMemory class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ObjectMemory.st,v 1.214 2004-08-03 16:46:30 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ObjectMemory.st,v 1.215 2004-09-10 10:39:45 cg Exp $'
 ! !
 
 ObjectMemory initialize!