<br><font size=2 face="sans-serif">Stef Ducasse wrote: </font>
<br>
<br><font size=2 face="Courier New">186443768 Object&gt;subclassResponsibility<br>
186443676 Boolean&gt;not<br>
186443584 Debugger class&gt;openContext:label:contents:<br>
186443492 Error&gt;devDefaultAction<br>
186443400 Error&gt;defaultAction<br>
</font>
<br>
<br><font size=2 face="sans-serif">In SystemDictionary&gt;&gt;majorShrink you find the following piece</font>
<br><font size=2 face="sans-serif">of code:</font>
<br>
<br><font size=2 face="sans-serif">&nbsp; &nbsp; &nbsp; &nbsp; [Smalltalk removeAllUnSentMessages &gt; 0]</font>
<br><font size=2 face="sans-serif">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; whileTrue:</font>
<br><font size=2 face="sans-serif">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; [Smalltalk unusedClasses do: [:c | (Smalltalk at: c) removeFromSystem]].</font>
<br>
<br><font size=2 face="sans-serif">When you modify it is this way:</font>
<br>
<br><font size=2 face="sans-serif">&nbsp; &nbsp; &nbsp; &nbsp; [Smalltalk removeAllUnSentMessages &gt; 0]</font>
<br><font size=2 face="sans-serif">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; whileTrue:</font>
<br><font size=2 face="sans-serif">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; [Smalltalk unusedClasses do: [:c | Transcript show: c printString; cr. (Smalltalk at: c) removeFromSystem]].</font>
<br>
<br><font size=2 face="sans-serif">you see that among other important things, class False is removed.</font>
<br><font size=2 face="sans-serif">I do not understand why and at this moment I do not have the time</font>
<br><font size=2 face="sans-serif">to explore the error.</font>
<br>
<br><font size=2 face="sans-serif">Greetings</font>
<br>
<br><font size=2 face="sans-serif">Boris <br>
<br>
msg &nbsp;systems ag<br>
Fraunhoferstraße 9<br>
85737 Ismaning<br>
<br>
Tel.: (+89) 96 101 546<br>
mailto: Boris_Gaertner@msg.de</font>