How to activate fonts in Suitcase X1?

Question

I have a script that loads fonts into Suitcase X1 based on the location of a QuarkXPress document that is open on the local machine.
I have figured out how to get Suitcase to "open" the fonts, but for some reason I can't get it to "activate" the fonts so they are seen by QuarkXPress. (I have "Activate fonts when added to Suitcase" turned on in the Preferences but this only seems to apply to fonts loaded through methods other than AppleScript.)
Here's the Suitcase portion of my script:
tell application "Extensis Suitcase X1"
activate
set theFontSet to (make new Font Set at beginning with properties {name:docName, activation status:activated})
repeat with aFont in fontList
add (aFont as alias) in theFontSet
end repeat
end tell
So even though I set the activation status of the font set to "activated" it doesn't activate the fonts.
Any help is appreciated,
Robert

Answer 1

As is so often the case once you post a cry for help you figure it out on your own:
tell application "Extensis Suitcase X1"
activate
set theFontSet to (make new Font Set at beginning with properties {name:docName, activation status:activated})
repeat with aFont in fontList
add (aFont as alias) in theFontSet
end repeat
set activation status of Font Set docName to activated
end tell
This works.
Robert