--- a/ConstNode.st	Sat Sep 20 22:54:35 1997 +0200
+++ b/ConstNode.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:49:43 pm'                !
+
 PrimaryNode subclass:#ConstantNode
 	instanceVariableNames:''
 	classVariableNames:'TrueNode FalseNode NilNode Const0Node Const1Node Float0Node'
@@ -231,7 +233,11 @@
 !ConstantNode methodsFor:'printing'!
 
 displayString
+    "return a printed representation of the receiver for displaying"
+
     ^ value displayString
+
+    "Modified: 20.9.1997 / 11:39:07 / cg"
 !
 
 printOn:aStream indent:i
@@ -279,5 +285,5 @@
 !ConstantNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Attic/ConstNode.st,v 1.23 1997-06-19 14:57:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Attic/ConstNode.st,v 1.24 1997-09-20 21:03:30 cg Exp $'
 ! !