Levente Uzonyi uploaded a new version of TrueType to project The Trunk:
http://source.squeak.org/trunk/TrueType-ul.19.mcz

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

Name: TrueType-ul.19
Author: ul
Time: 3 August 2011, 1:55:07.998 am
UUID: f587a356-f1b4-7444-b8f1-7749ac052fc3
Ancestors: TrueType-ul.18

Removed unnecessary blocks.

=============== Diff against TrueType-ul.18 ===============

Item was changed:
  ----- Method: TTFileDescription class>>fontFilesIn:do: (in category 'font paths') -----
  fontFilesIn: path do: aBlock
  	"TTFileDescription loadAllFilesIn: 'C:\Windows\Fonts'"
  	"Load all the TTF files we can find in the given path"
  	| fd |
  	fd := FileDirectory on: path.
  	(fd fileNamesMatching: '*.ttf;*.ttc') do:[:fn|
+ 		(self readFontsFrom: fn) do: aBlock ]!
- 		(self readFontsFrom: fn) do:[:font| aBlock value: font]].!