Object>>stateOn: aStream
	| i |
	i := 1.
	[true] whileTrue: [
		[ aStream nextRefererence: (self instVarAt: i). i:=i+1.]
			ifError: [ aStream close. ^self. ].
	].

:-P. Open source is great! I can't be fired for code like this! :-).

Michael.

Andreas Raab wrote:
> Hi,
> 
> While we can consider this a bug, it is certainly the case that you should
> ask an object about its instSize before attempting this. E.g.,
> 
> 	Object instSize => 0 "no instVars"
> 	Point instSize => 2 "two instVars"