--- a/gui/PPExtractProdcutionRefactoring.st	Wed Mar 05 00:33:59 2014 +0100
+++ b/gui/PPExtractProdcutionRefactoring.st	Wed Mar 05 00:34:06 2014 +0100
@@ -52,21 +52,21 @@
 !
 
 nameNewMethod: aSymbol 
-	class addInstanceVariable: aSymbol asString.
-	extractedParseTree renameSelector: aSymbol andArguments: #().
-	modifiedParseTree := RBParseTreeRewriter 
-		replace: self methodDelimiter
-		with: aSymbol asString
-		in: modifiedParseTree
+        class addInstanceVariable: aSymbol asString.
+        extractedParseTree renameSelector: aSymbol andArguments: #().
+        modifiedParseTree := ParseTreeRewriter 
+                replace: self methodDelimiter
+                with: aSymbol asString
+                in: modifiedParseTree
 ! !
 
 !PPExtractProdcutionRefactoring class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/petitparser/gui/PPExtractProdcutionRefactoring.st,v 1.1 2014-03-04 21:15:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/petitparser/gui/PPExtractProdcutionRefactoring.st,v 1.2 2014-03-04 23:34:06 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/petitparser/gui/PPExtractProdcutionRefactoring.st,v 1.1 2014-03-04 21:15:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/petitparser/gui/PPExtractProdcutionRefactoring.st,v 1.2 2014-03-04 23:34:06 cg Exp $'
 ! !