--- a/Behavior.st	Fri Jul 20 14:32:04 2012 +0100
+++ b/Behavior.st	Wed Jul 25 09:45:15 2012 +0100
@@ -4666,14 +4666,21 @@
 !
 
 whichSelectorsRead: instVarName
-	"Answer a set of selectors whose methods read the argument, instVarName,
-	as a named instance variable."
-
-	| instVarIndex methodDict|
-	instVarIndex := self allInstVarNames indexOf: instVarName ifAbsent: [^Set new].
-	methodDict := self methodDictionary.
-	^methodDict keys select: [:sel | (methodDict at: sel)
-			readsField: instVarIndex]
+        "Answer a set of selectors whose methods read the argument, instVarName,
+        as a named instance variable."
+
+"/        | instVarIndex methodDict|
+"/        instVarIndex := self allInstVarNames indexOf: instVarName ifAbsent: [^Set new].
+"/        methodDict := self methodDictionary.
+"/        ^methodDict keys select: [:sel | (methodDict at: sel)
+"/                        readsField: instVarIndex]
+
+        | methodDict |
+        methodDict := self methodDictionary.
+        ^ methodDict keys 
+            select: [:sel | (methodDict at: sel) readsInstVar: instVarName]
+
+    "Modified: / 23-07-2012 / 11:22:04 / cg"
 !
 
 whichSelectorsReferTo:someLiteralConstant
@@ -4729,14 +4736,20 @@
 !
 
 whichSelectorsWrite: instVarName
-	"Answer a set of selectors whose methods write the argument, instVarName,
-	as a named instance variable."
-
-	| instVarIndex methodDict |
-	instVarIndex := self allInstVarNames indexOf: instVarName ifAbsent: [^Set new].
-	methodDict := self methodDictionary.
-	^methodDict keys select: [:sel | (methodDict at: sel)
-			writesField: instVarIndex]
+        "Answer a set of selectors whose methods write the argument, instVarName,
+        as a named instance variable."
+
+"/        | instVarIndex methodDict |
+"/        instVarIndex := self allInstVarNames indexOf: instVarName ifAbsent: [^Set new].
+"/        methodDict := self methodDictionary.
+"/        ^methodDict keys select: [:sel | (methodDict at: sel)
+"/                        writesField: instVarIndex]
+        | methodDict |
+        methodDict := self methodDictionary.
+        ^ methodDict keys 
+            select: [:sel | (methodDict at: sel) writesInstVar: instVarName]
+
+    "Modified: / 23-07-2012 / 11:21:17 / cg"
 ! !
 
 !Behavior methodsFor:'snapshots'!
@@ -4777,13 +4790,13 @@
 !Behavior class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.320 2012/06/01 21:37:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.321 2012/07/23 09:38:41 cg Exp $'
 !
 
 version_CVS
-    ^ '§Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.320 2012/06/01 21:37:36 cg Exp §'
+    ^ '§Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.321 2012/07/23 09:38:41 cg Exp §'
 !
 
 version_SVN
-    ^ '$Id: Behavior.st 10814 2012-06-05 13:35:12Z vranyj1 $'
+    ^ '$Id: Behavior.st 10829 2012-07-25 08:45:15Z vranyj1 $'
 ! !