I do it in supporting job using this code:
|dict|
dict := Dictionary new.
dict at: #DejaVu put: (TextStyle named: 'Bitmap DejaVu Sans').
dict at: #DecimalProperty put: (Unicode classPool at: #DecimalProperty).
dict at: #GeneralCategory put: (Unicode classPool at: #GeneralCategory).
dict at: #GB2312Table put: (UCSTable classPool at: #GB2312Table).
dict at: #JISX0208Table put: (UCSTable classPool at: #JISX0208Table).
dict at: #KSX1001Table put: (UCSTable classPool at: #KSX1001Table).
FLSerializer serialize: dict toFileNamed: 'morphicData.fuel'
-- Pavel