Chris Muller uploaded a new version of MorphicTests to project The Trunk:
http://source.squeak.org/trunk/MorphicTests-cmm.16.mcz

==================== Summary ====================

Name: MorphicTests-cmm.16
Author: cmm
Time: 12 June 2010, 10:49:13.066 pm
UUID: f6e388ab-3fbf-44df-b30e-853a5baf2475
Ancestors: MorphicTests-cmm.15

Fixed new testBeginWithAnAnchor to not use Maui extension method, Text>>#nextPut:.

=============== Diff against MorphicTests-cmm.15 ===============

Item was changed:
  ----- Method: TextAnchorTest>>testBeginWithAnAnchor (in category 'initialize-release') -----
  testBeginWithAnAnchor
  	| text morph model |
  	text := Text streamContents:
  		[ : stream | stream
+ 			 nextPutAll:
+ 			(Text
+ 				string: (String value: 1)
+ 				attributes: {TextAnchor new anchoredMorph: Morph new. 
+ 					TextColor color: Color transparent}) ;
- 			 nextPut: Morph new ;
  			 nextPutAll: ' should be able to begin with an embedded object. ' ].
  	model := text -> nil.
  	morph := PluggableTextMorph
  		on: model
  		text: #key
  		accept: nil.
+ 	[ morph openInWorld ] ensure: [ morph delete ]!
- 	[morph openInWorld] ensure: [ morph delete ]!