--- a/PPParser.st	Fri Mar 08 04:30:37 2019 +0000
+++ b/PPParser.st	Mon May 27 15:17:40 2019 +0200
@@ -1,5 +1,7 @@
 "{ Package: 'stx:goodies/petitparser' }"
 
+"{ NameSpace: Smalltalk }"
+
 Object subclass:#PPParser
 	instanceVariableNames:'properties'
 	classVariableNames:''
@@ -18,18 +20,6 @@
 	^ self basicNew initialize
 ! !
 
-
-
-
-
-
-
-
-
-
-
-
-
 !PPParser methodsFor:'accessing'!
 
 children
@@ -107,7 +97,7 @@
 	^ self
 ! !
 
-!PPParser methodsFor:'copying'!
+!PPParser methodsFor:'copying-private'!
 
 postCopy
 	super postCopy.
@@ -554,18 +544,17 @@
 	^ false
 ! !
 
-
 !PPParser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPParser.st,v 1.7 2014-03-04 23:58:41 cg Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPParser.st,v 1.7 2014-03-04 23:58:41 cg Exp $'
+    ^ '$Header$'
 !
 
 version_SVN
-    ^ '$Id: PPParser.st,v 1.7 2014-03-04 23:58:41 cg Exp $'
+    ^ '$Id$'
 ! !