--- a/VarNode.st	Wed Jul 02 18:38:16 1997 +0200
+++ b/VarNode.st	Wed Jul 02 18:54:40 1997 +0200
@@ -73,6 +73,12 @@
 
 !VariableNode methodsFor:'accessing'!
 
+block
+    ^ block
+
+    "Created: 2.7.1997 / 18:53:38 / cg"
+!
+
 index
     ^ index
 !
@@ -647,5 +653,5 @@
 !VariableNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Attic/VarNode.st,v 1.31 1997-07-02 15:34:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Attic/VarNode.st,v 1.32 1997-07-02 16:54:40 cg Exp $'
 ! !

--- a/VariableNode.st	Wed Jul 02 18:38:16 1997 +0200
+++ b/VariableNode.st	Wed Jul 02 18:54:40 1997 +0200
@@ -73,6 +73,12 @@
 
 !VariableNode methodsFor:'accessing'!
 
+block
+    ^ block
+
+    "Created: 2.7.1997 / 18:53:38 / cg"
+!
+
 index
     ^ index
 !
@@ -647,5 +653,5 @@
 !VariableNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/VariableNode.st,v 1.31 1997-07-02 15:34:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/VariableNode.st,v 1.32 1997-07-02 16:54:40 cg Exp $'
 ! !