From VisualWorks®, Pre-Release 7.7 (apr08.2) of April 28, 2008 on May 3, 2008 at 8:38:29 am NodeCounter Refactory.Browser Refactory.Browser.RBProgramNodeVisitor false none count Browser-Parser Refactory.Browser.NodeCounter initialize-release count ^count initialize super initialize. count := 0 Refactory.Browser.NodeCounter visiting visitNode: aNode count := count + 1. super visitNode: aNode