Creating a Pharo Candle Image

"Image Definition"
seed := PharoCandleSeed new
    fromDirectoryNamed: 'PharoCandle/source';
    buildSeed.
"Builder, do it!"
builder := HazelKernelBuilder new.
builder kernelSpec: seed.
builder buildKernel.
"Now the image file"
writer := HzImageWriter new.
writer format: HzCogImageFormat new.
seed appySubstitutionsOn: writer forEnvironment: builder bootstrapEnvironment.
writer imageFileName: 'candle'.
writer writeImage: builder bootstrapEnvironment.