--- a/UnaryNode.st	Tue Jul 26 00:33:05 2011 +0200
+++ b/UnaryNode.st	Tue Jul 26 00:33:18 2011 +0200
@@ -338,12 +338,23 @@
     "Modified: 23.10.1997 / 02:05:18 / cg"
 ! !
 
+!UnaryNode methodsFor:'visiting'!
+
+acceptVisitor:aVisitor 
+    "Double dispatch back to the visitor, passing my type encoded in
+     the selector (visitor pattern)"
+
+    "stub code automatically generated - please change if required"
+
+    ^ aVisitor visitUnaryNode:self
+! !
+
 !UnaryNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/UnaryNode.st,v 1.54 2010-01-18 16:01:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/UnaryNode.st,v 1.55 2011-07-25 22:33:18 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/UnaryNode.st,v 1.54 2010-01-18 16:01:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/UnaryNode.st,v 1.55 2011-07-25 22:33:18 vrany Exp $'
 ! !