--- a/ClassDescription.st	Mon Jul 23 11:38:41 2012 +0200
+++ b/ClassDescription.st	Mon Jul 23 12:17:39 2012 +0200
@@ -820,6 +820,7 @@
     "Created: / 28.3.1998 / 21:21:52 / cg"
 ! !
 
+
 !ClassDescription methodsFor:'Compatibility-V''Age'!
 
 categoriesFor:aSelector are:listOfCategories
@@ -3303,14 +3304,14 @@
 
     set := IdentitySet new.
     self selectorsAndMethodsDo:[:sel :mthd |
-        (mthd accessedInstVars includes:instVarName) ifTrue:[
+        (mthd accessesInstVar:instVarName) ifTrue:[
             set add:sel
         ]
     ].
     ^ set.
 
     "Created: / 19-06-1997 / 17:51:50 / cg"
-    "Modified: / 20-11-2006 / 12:55:55 / cg"
+    "Modified: / 23-07-2012 / 11:17:57 / cg"
 ! !
 
 !ClassDescription methodsFor:'special accessing'!
@@ -4212,11 +4213,11 @@
 !ClassDescription class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.223 2012-04-05 10:12:26 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.224 2012-07-23 10:17:39 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.223 2012-04-05 10:12:26 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.224 2012-07-23 10:17:39 cg Exp $'
 ! !
 
 ClassDescription initialize!