"Watch expression library file."

((Dictionary new) add: (#'stack trace' -> '| ctx i stream |
i := 8.
ctx := DOITCONTEXT.
stream := WriteStream on: (String new: 200).
[i = 0 or: [ctx == nil]]
	whileFalse:
		[ctx printOn: stream.
		stream cr.
		ctx := ctx sender.
		i := i - 1].
^stream contents
'); yourself)