'Loading Monitor' printNl!

FileStream fileIn: 'Monitor.st'!

'Defining TestMonitor' printNl!

Monitor subclass: #TestMonitor
	instanceVariableNames: ''
	classVariableNames: ''
	poolDictionaries: ''
	category: ''
!

!TestMonitor methodsFor: 'testing'!

doesNotUnderstand: aMessage
    aMessage inspect.
    ^super doesNotUnderstand: aMessage
! !

| x |

'Starting in earnest' printNl.
    x _ #(Foo bar baz).
    TestMonitor onObject: x.
    (x at: 2) printNl.
!