--- smalltalk-2.3.1/compiler/STSymTable.st 2006-02-05 12:41:19.000000000 -0600 +++ smalltalk/compiler/STSymTable.st 2006-12-29 23:55:27.000000000 -0600 @@ -162,7 +162,7 @@ i := -1. readOnly := aBehavior isUntrusted not and: [ thisContext isUntrusted ]. - aBehavior withAllSuperclassesDo: [ :class | + aBehavior withAllSuperclasses reverseDo: [ :class | readOnly := readOnly and: [ class isUntrusted not ]. class instVarNames do: [ :iv | instVars at: iv asSymbol put: (STVariable