--- a/VarNode.st	Sat Sep 20 22:54:35 1997 +0200
+++ b/VarNode.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:47:04 pm'                !
+
 PrimaryNode subclass:#VariableNode
 	instanceVariableNames:'name token selfValue selfClass index block'
 	classVariableNames:''
@@ -566,7 +568,11 @@
 !VariableNode methodsFor:'printing'!
 
 displayString
+    "return a string for display in inspectors etc."
+
     ^ 'InterpreterVariable(' , self printString , ')'
+
+    "Modified: 20.9.1997 / 11:42:07 / cg"
 !
 
 printOn:aStream indent:i
@@ -653,5 +659,5 @@
 !VariableNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Attic/VarNode.st,v 1.32 1997-07-02 16:54:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Attic/VarNode.st,v 1.33 1997-09-20 21:03:33 cg Exp $'
 ! !