--- a/compiler/PPCPluggableNode.st	Mon Nov 24 00:09:23 2014 +0000
+++ b/compiler/PPCPluggableNode.st	Wed Apr 15 11:28:09 2015 +0100
@@ -1,5 +1,7 @@
 "{ Package: 'stx:goodies/petitparser/compiler' }"
 
+"{ NameSpace: Smalltalk }"
+
 PPCNode subclass:#PPCPluggableNode
 	instanceVariableNames:'block'
 	classVariableNames:''
@@ -55,10 +57,6 @@
  ^ compiler stopMethod.
 !
 
-firstCharParser
-	^  block asParser
-!
-
 firstCharSet
 	^ PPCharSetPredicate on: [:char | (block asParser parse: char asString) isPetitFailure not ]
 !