--- a/compiler/PPCUnknownNode.st	Thu Apr 30 23:43:14 2015 +0200
+++ b/compiler/PPCUnknownNode.st	Sun May 10 06:28:36 2015 +0100
@@ -13,72 +13,79 @@
 !PPCUnknownNode class methodsFor:'as yet unclassified'!
 
 new
-	^ self basicNew initialize
+    ^ self basicNew initialize
 ! !
 
 !PPCUnknownNode methodsFor:'accessing'!
 
 acceptsEpsilon
-	^ parser acceptsEpsilon
+    ^ parser acceptsEpsilon
 !
 
 acceptsEpsilonOpenSet: aSet
-	^ parser acceptsEpsilonOpenSet: aSet
+    ^ parser acceptsEpsilonOpenSet: aSet
 !
 
 children
-	^ parser children
+    ^ parser children
 !
 
 isContextFreePrim
-	^ parser isContextFreePrim
+    ^ parser isContextFreePrim
 !
 
 isNullable
-	^ parser isNullable
+    ^ parser isNullable
 !
 
 parser
-	
-	^ parser
+    
+    ^ parser
 !
 
 parser: anObject
-	
-	parser := anObject
+    
+    parser := anObject
 !
 
 prefix
-	^ #parser
+    ^ #parser
 ! !
 
 !PPCUnknownNode methodsFor:'analysis'!
 
 firstCharSet
-	^ parser firstCharSet
+    ^ parser firstCharSet
 ! !
 
 !PPCUnknownNode methodsFor:'comparison'!
 
 = anotherNode
-	super = anotherNode ifFalse: [ ^ false ].
-	^ parser = anotherNode parser.
+    super = anotherNode ifFalse: [ ^ false ].
+    ^ parser = anotherNode parser.
 !
 
 hash
-	^ super hash bitXor: parser hash
+    ^ super hash bitXor: parser hash
+! !
+
+!PPCUnknownNode methodsFor:'copying'!
+
+postCopy
+    super postCopy.
+    parser := parser copy.
 ! !
 
 !PPCUnknownNode methodsFor:'transformation'!
 
 replace: node with: anotherNode
-	parser replace: node with: anotherNode
+    parser replace: node with: anotherNode
 ! !
 
 !PPCUnknownNode methodsFor:'visiting'!
 
 accept: visitor
-	^ visitor visitUnknownNode: self
+    ^ visitor visitUnknownNode: self
 ! !
 
 !PPCUnknownNode class methodsFor:'documentation'!