I'm wondering if anyone has done any work to get BobUI to file into
3.2g?  I gave 

http://minnow.cc.gatech.edu/squeak/uploads/1984/BobsUIv2Sq30.1.cs.gz

a try in 3.2g-4811 and it locked the image.

Error: Error: Cannot install color
9 April 2002 1:10:25 pm

VM: unix - Squeak3.2gamma of 15 January 2002 [latest update: #4743]
Image: Squeak3.2gamma [latest update: #4811]

FormCanvas(Object)>>error:
	Receiver: a FormCanvas on: DisplayScreen(1588x1066x16)
	Arguments and temporary variables: 
		aString: 	'Error: Cannot install color'
	Receiver's instance variables: 
		target: 	nil
		filterSelector: 	nil
		origin: 	0 at 0
		clipRect: 	0 at 0 corner: 1588 at 1066
		form: 	DisplayScreen(1588x1066x16)
		port: 	a GrafPort
		shadowColor: 	nil

[] in WorldState>>displayWorldSafely:
	Arguments and temporary variables: 
		aWorld: 	a PasteUpMorph(1622) [world]
		oldHandler: 	nil
		errCtx: 	RectangleMorph(BorderedMorph)>>drawOn:
		errMorph: 	a RectangleMorph(853)
		err: 	'Error: Cannot install color'
		rcvr: 	a FormCanvas on: DisplayScreen(1588x1066x16)

[] in BlockContext>>ifError:
	Arguments and temporary variables: 
		errorHandlerBlock: 	[] in WorldState>>displayWorldSafely:
		lastHandler: 	nil
		val: 	nil
		activeProcess: 	a Process in nil
		errBlockArgs: 	2
		aString: 	nil
		aReceiver: 	nil
		ex: 	an Error

Error(Exception)>>handlerAction
	Receiver: an Error
	Arguments and temporary variables: 
		na: 	1
		handler: 	[] in BlockContext>>ifError:
		returnValue: 	nil
	Receiver's instance variables: 
		messageText: 	'Cannot install color'
		initialContext: 	FormCanvas(Object)>>error:
		resignalException: 	nil
		handlerContext: 	BlockContext>>on:do:
		tag: 	nil
		activeHandler: 	nil

--- The rest of the stack ---
Error(Exception)>>signal
Error(Exception)>>signal:
FormCanvas(Object)>>error:
FormCanvas>>setFillColor:
FormCanvas>>frameAndFillRectangle:fillColor:borderWidth:borderColor:
RectangleMorph(BorderedMorph)>>drawOn:
FormCanvas(Canvas)>>draw:
FormCanvas(Canvas)>>drawMorph:
[] in RectangleMorph(Morph)>>fullDrawOn:
FormCanvas>>roundCornersOf:in:during:
FormCanvas(Canvas)>>roundCornersOf:during:
RectangleMorph(Morph)>>fullDrawOn:
FormCanvas(Canvas)>>fullDraw:
FormCanvas(Canvas)>>fullDrawMorph:
[] in ScrollBar(Morph)>>drawSubmorphsOn:
Array(SequenceableCollection)>>reverseDo:
[] in ScrollBar(Morph)>>drawSubmorphsOn:
ScrollBar(Morph)>>drawSubmorphsOn:
[] in ScrollBar(Morph)>>fullDrawOn:
CornerRounder
class>>roundCornersOf:on:in:displayBlock:borderWidth:corners:
FormCanvas>>roundCornersOf:in:during:
FormCanvas(Canvas)>>roundCornersOf:during:
ScrollBar(Morph)>>fullDrawOn:
FormCanvas(Canvas)>>fullDraw:
FormCanvas(Canvas)>>fullDrawMorph:
[] in PluggableListMorph(Morph)>>drawSubmorphsOn:
Array(SequenceableCollection)>>reverseDo:
[] in PluggableListMorph(Morph)>>drawSubmorphsOn:
PluggableListMorph(Morph)>>drawSubmorphsOn:
[] in PluggableListMorph(Morph)>>fullDrawOn:
FormCanvas>>roundCornersOf:in:during:
FormCanvas(Canvas)>>roundCornersOf:during:
PluggableListMorph(Morph)>>fullDrawOn:
FormCanvas(Canvas)>>fullDraw:
FormCanvas(Canvas)>>fullDrawMorph:
[] in SystemWindow(Morph)>>drawSubmorphsOn:
Array(SequenceableCollection)>>reverseDo:
[] in SystemWindow(Morph)>>drawSubmorphsOn:
SystemWindow(Morph)>>drawSubmorphsOn:
[] in SystemWindow(Morph)>>fullDrawOn:
CornerRounder
class>>roundCornersOf:on:in:displayBlock:borderWidth:corners:
FormCanvas>>roundCornersOf:in:during:
FormCanvas(Canvas)>>roundCornersOf:during:
SystemWindow(Morph)>>fullDrawOn:
FormCanvas(Canvas)>>fullDraw:
FormCanvas(Canvas)>>fullDrawMorph:
[] in WorldState>>drawWorld:submorphs:invalidAreasOn:
Rectangle>>allAreasOutsideList:startingAt:do:
Rectangle>>allAreasOutsideList:do:
[] in WorldState>>drawWorld:submorphs:invalidAreasOn:
Array(SequenceableCollection)>>do:
WorldState>>drawWorld:submorphs:invalidAreasOn:
[] in WorldState>>displayWorld:submorphs:
FormCanvas>>roundCornersOf:in:during:
FormCanvas(Canvas)>>roundCornersOf:during:
WorldState>>displayWorld:submorphs:
PasteUpMorph>>privateOuterDisplayWorld
-- and more not shown --