--- a/PrimaryNode.st	Thu Mar 27 23:31:40 2003 +0100
+++ b/PrimaryNode.st	Fri Mar 28 15:39:23 2003 +0100
@@ -68,10 +68,6 @@
 
 !PrimaryNode methodsFor:'evaluation'!
 
-evaluate
-    ^ self subclassResponsibility
-!
-
 store:aValue
     ^ self subclassResponsibility
 ! !
@@ -108,5 +104,5 @@
 !PrimaryNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/PrimaryNode.st,v 1.21 2003-03-27 15:57:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/PrimaryNode.st,v 1.22 2003-03-28 14:39:13 cg Exp $'
 ! !