🚀 go-pugleaf

Well, following up on your suggestions, I now have it working, but am puzzled by why it worked at all in the original attempt, even if only under certain circumstances.

Here's what works:

set theStory to parent story of theFrame
set theChars to a reference to every character of theStory
set numChars to count (characters of theStory)
tell theFrame
    repeat until overflows is false
        repeat with i from 1 to numChars
            set theChar to (a reference to character i of theStory)
            tell theChar						
                 set horizontal scale to 0.9 * horizontal scale
            end tell
        end repeat
    end repeat
end tell


Thanks, Dave and Jay