--- a/DoItChange.st	Thu Jul 11 22:12:49 2002 +0200
+++ b/DoItChange.st	Wed Jul 17 15:54:44 2002 +0200
@@ -69,10 +69,20 @@
 
 isDoIt
     ^ true
+!
+
+receiverClassName
+    |tree|
+
+    tree := Parser parseExpression:source.
+    (tree isNil or:[tree isSymbol]) ifTrue:[^ nil].
+    tree isMessage ifFalse:[^ nil].
+    tree receiver isVariable ifFalse:[^ nil].
+    ^ tree receiver name
 ! !
 
 !DoItChange class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/DoItChange.st,v 1.7 2002-02-06 09:09:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/DoItChange.st,v 1.8 2002-07-17 13:54:44 cg Exp $'
 ! !