New Applescript version breaks old code

Question

Hi there,
First off, I'm not an Applescripter, but I have one script I wrote a few years back (with help from kind people on the net) to generate and save tiny applications which, when called from within an Adobe Flash executable, would open the required file using the Mac OS native application associated with them (i.e a doc file wouldbe opened by Word if installed, TextEdit if not...)
It used to run fine on my old Powerbook G4 on an old version of AppleScript, but times change and, one whizzy Intel processor later, I'm trying to get the same script running on OS 10.8 with AppleScipt 2.5.1, with varied results.
Basically, what the script should do is read a comma delimited file in the same folder as the script, called 'fileNames.csv' which contains the names of all the files that I want the tiny apps to open. Each item will then have its own file created by the AppleScript, named after each item, which get saved in an pre-existing folder in the same directory as the script and fileNames.csv file, called 'fscommand'.
The example of the fileNames.csv file I'm having issues with:
yr2_unit_1_tn.doc,yr2_unit_2_tn.doc,yr2_unit_3_tn.doc ... etc up until  yr2_unit_20_tn.doc
The script always used to work fine, but the new version of AppleScript seems to have broken it. When I run it now, it creates all the .app files up until 'yr2_unit_11_tn.doc.app' but then stalls in 'Running...' mode in the AppleScipts editor, and refuses to save apps for the final nine files in the .csv file.
It still runs ok from an older AppleScript editor (2.2.1) but this only saves PowerPC applications, which won't run on Intel Macs. And this would be me running away from the problem, rather than attempting to solve it ;-)
I'm thinking it's a filename issue, as it always seems to break when attempting to save "yr2_unit_11_tn.doc.app" when "yr2_unit_1_tn.doc.app" already exists in the 'fscommand' folder. If I create a new 'fileNames.csv' file which only contains ten entries from 'yr2_unit_11_tn.doc' to  'yr2_unit_20_tn.doc', and run the script to an empty 'fscommand' folder, it processes all the files fine. It just won't do all twenty entries from 1 to 20.
Here's the script. I know I'm doing something really stupid here, but as a rock bottom novice AppleScripter, I can't see the error, or why it would work in one version of AppleScript and not another. I can post a link to the zipped files if this is any help in solving it. Thanks in advance for any help! :-)
tell application "Finder" to get folder of (path to me) as Unicode text
set cwd to result
set fileRef to open for access alias (cwd & "fileNames.csv")
set theList to read fileRef using delimiter ","
close access fileRef
set theFolder to alias (cwd & "fscommand")
set theFolderPath to theFolder as string
#Create the .app files and save them in theFolder
set NL to ASCII character 10
tell application id "com.apple.ScriptEditor2"
launch
          repeat with theItem in theList
                    set x to make new document
                    set x to the front document
                    set theCharacters to characters of theItem
                    set theReversedCharacters to reverse of theCharacters
                    set theReversedFileName to theReversedCharacters as string
                    set theOffset to offset of "." in theReversedFileName
                    set theReversedSuffix to text 1 thru (theOffset - 1) of theReversedFileName
                    set theSuffix to (reverse of (characters of theReversedSuffix)) as string
                    set the text of document 1 to "tell application \"Finder\"" & NL & "activate" & NL & "set cwd to get folder of container of (path to me) as Unicode text" & NL & "open file (cwd & \"assets:" & theSuffix & ":" & theItem & "\")" & NL & "end tell"
  compile document 1
                    set file_path to theFolderPath & theItem & ".app"
                    save document 1 as "application" in file file_path
  close window 1
          end repeat
end tell

Answer 1

That seemed to be it. I put a tiny delay in between saving the document and closing the window and the file runs smoothly through all 20 items.
compile document 1
set file_path to theFolderPath & theItem & ".app"
save document 1 as "application" in file file_path
delay 0.3
close window 1
Never thought that I'd reach the day where I was trying to slow the computer down to process something more carefully :-D