--- a/PrimaryNd.st	Sat Sep 20 22:54:35 1997 +0200
+++ b/PrimaryNd.st	Sat Sep 20 23:03:33 1997 +0200
@@ -10,6 +10,8 @@
  hereby transferred.
 "
 
+'From Smalltalk/X, Version:3.1.10 on 20-sep-1997 at 11:48:45 pm'                !
+
 ParseNode subclass:#PrimaryNode
 	instanceVariableNames:'value'
 	classVariableNames:''
@@ -77,7 +79,11 @@
 !PrimaryNode methodsFor:'printing'!
 
 displayString
+    "return a string for display in inspectors etc."
+
     ^ self subclassResponsibility
+
+    "Modified: 20.9.1997 / 11:41:19 / cg"
 !
 
 printOn:aStream indent:i
@@ -95,5 +101,5 @@
 !PrimaryNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Attic/PrimaryNd.st,v 1.16 1996-04-25 17:08:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Attic/PrimaryNd.st,v 1.17 1997-09-20 21:03:31 cg Exp $'
 ! !