--- a/Method.st	Thu Jun 19 18:31:10 1997 +0200
+++ b/Method.st	Thu Jun 19 18:35:32 1997 +0200
@@ -2118,6 +2118,29 @@
 
 !Method methodsFor:'queries'!
 
+accessedInstVars
+    "return a collection of instVarNames, which are accessed by
+     the receiver method"
+
+    |src parser|
+
+    src := self source.
+    src notNil ifTrue:[
+        parser := Parser
+                        parseMethod:src 
+                        in:self containingClass 
+                        ignoreErrors:true 
+                        ignoreWarnings:true.
+
+        (parser notNil and:[parser ~~ #Error]) ifTrue:[
+            ^ parser usedInstVars
+        ].
+    ].
+    ^ #() "/ actually: unknown
+
+    "Modified: 19.6.1997 / 17:54:09 / cg"
+!
+
 containingClass
     "return the class I am defined in. 
      See comment in who."
@@ -2343,6 +2366,30 @@
     "Modified: 31.10.1995 / 14:36:49 / cg"
 !
 
+modfiedInstVars
+    "return a collection of instVarNames, which are written by
+     the receiver method"
+
+    |src parser|
+
+    src := self source.
+    src notNil ifTrue:[
+        parser := Parser
+                        parseMethod:src 
+                        in:self containingClass 
+                        ignoreErrors:true 
+                        ignoreWarnings:true.
+
+        (parser notNil and:[parser ~~ #Error]) ifTrue:[
+            ^ parser modifiedInstVars
+        ].
+    ].
+    ^ #() "/ actually: unknown
+
+    "Created: 19.6.1997 / 17:53:30 / cg"
+    "Modified: 19.6.1997 / 17:54:17 / cg"
+!
+
 modificationTime
     "try to extract the modificationTime as a timeStamp from
      the receivers source. If there is no source or no history line, 
@@ -2763,6 +2810,6 @@
 !Method class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.131 1997-06-19 14:26:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.132 1997-06-19 16:35:32 cg Exp $'
 ! !
 Method initialize!