--- a/Context.st	Fri Jan 16 16:04:01 1998 +0100
+++ b/Context.st	Fri Jan 16 19:39:35 1998 +0100
@@ -267,8 +267,8 @@
      Notice, that one of the next ST/X versions will get some syntactic
      extension to get this automatically)."
 
-    (index == 8) ifTrue:[^ nil].
-    (index == 9) ifTrue:[^ nil].
+    (index == 8) ifTrue:[^ nil].	"/ retvalTemp - invisible
+    (index == 9) ifTrue:[^ nil].	"/ handle to machine stack - invisible
     ^ super instVarAt:index
 !
 
@@ -277,8 +277,9 @@
      Notice, that one of the next ST/X versions will get some syntactic
      extension to get this automatically)."
 
-    (index == 8) ifTrue:[^ nil].
-    (index == 9) ifTrue:[^ nil].
+    (index == 2) ifTrue:[^ nil].	"/ sender - not allowed to change
+    (index == 8) ifTrue:[^ nil].	"/ retvalTemp - not allowed to change
+    (index == 9) ifTrue:[^ nil].	"/ handle to machine stack - not allowed to change
     ^ super instVarAt:index put:value
 !
 
@@ -1461,6 +1462,6 @@
 !Context class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Context.st,v 1.82 1998-01-05 13:02:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Context.st,v 1.83 1998-01-16 18:39:35 cg Exp $'
 ! !
 Context initialize!