"Stress the call stack" | dive max | max := 1000. diveTo := [:depth| self print: 'diving level ',depth. depth < max ifTrue: [ diveTo value: depth + 1 ]. ]. diveTo value: 1.