--- a/compiler/PPCCheckingVisitor.st	Mon Sep 07 08:20:46 2015 +0100
+++ b/compiler/PPCCheckingVisitor.st	Mon Sep 07 11:53:38 2015 +0100
@@ -11,14 +11,13 @@
 
 !PPCCheckingVisitor methodsFor:'visiting'!
 
-visitNode: node
+beforeAccept: node
     | message |
 
-    super visitNode: node.
     message := node check.
-    message notNil ifTrue:[ self error: message ].
+    message notNil ifTrue:[ self error: message ].       
     ^node
 
-    "Created: / 04-09-2015 / 10:23:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Created: / 07-09-2015 / 13:05:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !