🚀 go-pugleaf

Hi 
I have a script which gathers info from an active document and fills out a form for output. Part of it gathers font info: 

copy "" to docFonts 
tell application "InDesign 2.0.1" 
	activate 
	tell active document 
		set fontName to name of every font of document 1 as list 
		set fontType to type of every font of document 1 as list 
		repeat with i from 1 to count of items in fontName 
			copy item i of fontName to theFont 
			copy item i of fontType to thetype 
			repeat with i from 1 to count of items in fontType 
			end repeat 
			copy docFonts & theFont & tab & thetype & tab & "yes" & return to docFonts 
			end repeat 
		copy docFonts to x 
	end tell 
end tell 

When I run the script from Script Editor I get what I want: 

Eboy	EXTGamma	type 1	yes 
ITC Officina Sans	Bold	type 1	yes 
ITC Officina Sans	Book	type 1	yes 
Times	Regular	TrueType	yes 

If I run it any other way-- as an app or from Quickeys or the script menu, the font type is returned incorrectly: 

Eboy	EXTGamma	?constant ****ftT1?	yes 
ITC Officina Sans	Bold	?constant ****ftT1?	yes 
ITC Officina Sans	Book	?constant ****ftT1?	yes 
Times	Regular	?constant ****ftTT?	yes 

Anyway to fix this? I'm running OS 10.2.1 
Thanks 
Rob