--- a/BlockNode.st	Wed Jul 02 18:55:20 1997 +0200
+++ b/BlockNode.st	Wed Jul 02 18:55:54 1997 +0200
@@ -731,8 +731,12 @@
 !BlockNode methodsFor:'misc'!
 
 rememberOuterBlockVarAccess:aVariableNode
+    accessedOuterBlockVars isNil ifTrue:[
+        accessedOuterBlockVars := OrderedCollection new.
+    ].
+    accessedOuterBlockVars add:aVariableNode
 
-    "Created: 2.7.1997 / 11:12:55 / cg"
+    "Modified: 2.7.1997 / 18:52:49 / cg"
 !
 
 rememberSubBlock:aBlockNode
@@ -861,7 +865,7 @@
     ^ true
 
     "Created: 2.7.1997 / 10:43:37 / cg"
-    "Modified: 2.7.1997 / 17:43:09 / cg"
+    "Modified: 2.7.1997 / 18:55:36 / cg"
 !
 
 numArgs
@@ -892,5 +896,5 @@
 !BlockNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/BlockNode.st,v 1.47 1997-07-02 15:43:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/BlockNode.st,v 1.48 1997-07-02 16:55:54 cg Exp $'
 ! !