Nicolas Cellier uploaded a new version of TraitsTests to project The Trunk:
http://source.squeak.org/trunk/TraitsTests-nice.3.mcz

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

Name: TraitsTests-nice.3
Author: nice
Time: 3 January 2010, 5:10:14 am
UUID: 8c9b041f-0b45-480f-a3f7-0a7c49d2d5f7
Ancestors: TraitsTests-ar.2

remove some #or:or: #and:and: sends

=============== Diff against TraitsTests-ar.2 ===============

Item was changed:
  ----- Method: TraitsTestCase>>tearDown (in category 'running') -----
  tearDown
+ 	
- 	| behaviorName |
  	TraitsResource resetIfDirty.
  	self createdClassesAndTraits do: 
+ 			[:aClassOrTrait | | behaviorName | 
- 			[:aClassOrTrait | 
  			behaviorName := aClassOrTrait name.
  			Smalltalk at: behaviorName
  				ifPresent: [:classOrTrait | classOrTrait removeFromSystem].
  			ChangeSet current removeClassChanges: behaviorName].
  	createdClassesAndTraits := nil!

Item was changed:
  ----- Method: TraitsResource>>tearDown (in category 'as yet unclassified') -----
  tearDown
+ 	
- 	| behaviorName |
  	SystemChangeNotifier uniqueInstance noMoreNotificationsFor: self.
  	self createdClassesAndTraits do: 
+ 			[:aClassOrTrait | | behaviorName | 
- 			[:aClassOrTrait | 
  			behaviorName := aClassOrTrait name.
  			Smalltalk at: behaviorName
  				ifPresent: [:classOrTrait | classOrTrait removeFromSystem].
  			ChangeSet current removeClassChanges: behaviorName].
  	createdClassesAndTraits := self t1: (self 
  						t2: (self t3: (self 
  										t4: (self t5: (self 
  														t6: (self c1: (self 
  																		c2: (self c3: (self c4: (self c5: (self c6: (self c7: (self c8: nil)))))))))))))!

Item was changed:
  ----- Method: TraitsResource>>codeChangedEvent: (in category 'as yet unclassified') -----
  codeChangedEvent: anEvent
  
  	(anEvent isDoIt not
+ 		and: [anEvent itemClass notNil
+ 		and: [self createdClassesAndTraits includes: anEvent itemClass instanceSide]]) ifTrue: [self setDirty] !
- 		and: [anEvent itemClass notNil]
- 		and: [self createdClassesAndTraits includes: anEvent itemClass instanceSide]) ifTrue: [self setDirty] !