Andreas Raab uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-ar.233.mcz

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

Name: Kernel-ar.233
Author: ar
Time: 1 September 2009, 1:00 am
UUID: 3041bac3-13dd-d841-99a7-79e006ddf675
Ancestors: Kernel-dtl.232

Restore traits composition when printing class definitions.

=============== Diff against Kernel-dtl.232 ===============

Item was changed:
  ----- Method: ClassDescription>>definition (in category 'fileIn/Out') -----
  definition
  	"Answer a String that defines the receiver."
  
  	| aStream path |
  	aStream := WriteStream on: (String new: 300).
  	superclass == nil
  		ifTrue: [aStream nextPutAll: 'ProtoObject']
  		ifFalse: [path := ''.
  				self environment scopeFor: superclass name from: nil
  						envtAndPathIfFound: [:envt :remotePath | path := remotePath].
  				aStream nextPutAll: path , superclass name].
  	aStream nextPutAll: self kindOfSubclass;
  			store: self name.
+ 	(self hasTraitComposition and: [self traitComposition notEmpty]) ifTrue: [
+ 		aStream cr; tab; nextPutAll: 'uses: ';
+ 			nextPutAll: self traitCompositionString].
  	aStream cr; tab; nextPutAll: 'instanceVariableNames: ';
  			store: self instanceVariablesString.
  	aStream cr; tab; nextPutAll: 'classVariableNames: ';
  			store: self classVariablesString.
  	aStream cr; tab; nextPutAll: 'poolDictionaries: ';
  			store: self sharedPoolsString.
  	aStream cr; tab; nextPutAll: 'category: ';
  			store: (SystemOrganization categoryOfElement: self name) asString.
  
  	superclass ifNil: [ 
  		aStream nextPutAll: '.'; cr.
  		aStream nextPutAll: self name.
  		aStream space; nextPutAll: 'superclass: nil'. ].
  
  	^ aStream contents!