Frank Shearar uploaded a new version of TrueType to project The Trunk:
http://source.squeak.org/trunk/TrueType-fbs.25.mcz

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

Name: TrueType-fbs.25
Author: fbs
Time: 25 July 2013, 9:02:47.403 am
UUID: 36e831df-1fcc-674c-8dc0-82246dc0028f
Ancestors: TrueType-fbs.24

SmalltalkImage current -> Smalltalk.

=============== Diff against TrueType-fbs.24 ===============

Item was changed:
  ----- Method: TTFileDescription class>>fontPathsDo: (in category 'font paths') -----
  fontPathsDo: aBlock
  	"Evaluate aBlock with all of the font paths that should be searched on the current platform"
  
  	"Start with the current directory"
  	aBlock value: FileDirectory default pathName.
  
  	"Then subdirectory 'fonts'"
  	aBlock value: (FileDirectory default directoryNamed: 'fonts') pathName.
  
  	"Platform specific directories"
+ 	Smalltalk platformName caseOf:{
- 	SmalltalkImage current platformName caseOf:{
  		['Win32']	->	[
  			"Standard Windows fonts directory"
  			aBlock value: 'C:\Windows\Fonts'.
  		].
  		['Mac OS']	->	[
  			"Standard system fonts directory"
  			aBlock value: '/Library/Fonts'.
  		].
  		['unix']		->	[ | base |
  			"Standard fonts are in /usr/share/fonts/*"
  			base := '/usr/share/fonts'.
  			(FileDirectory on: base) directoryNames 
  				do:[:dn| aBlock value: base, '/', dn].
  		].
  	} otherwise:[].
  	!