File renumbering question

Question

How can I make the following script renumber files say up to 5,000?  Currently it stops at 99.
Thanks.
global theFolder
on run
    tell application "Finder"
        activate
        set theFolder to ¬
            (choose folder with prompt "Where are my photos?")
        set theFiles to every file of theFolder
        set thetotalCount to count of theFiles
        set jpegList to (every file of theFolder whose name ends with ".JPG")
        set jpegCount to count of jpegList
        set theOtherFolder to theFolder as alias
        repeat with i from 1 to count of theFiles
            set theName to name of item i of jpegList
            if theName contains "." then
                set nameSuffix to (text -1 thru ¬
                    (offset of "." in theName) of theName)
            else
                set nameSuffix to ""
            end if
            set name of item i of jpegList to ¬
                (text -2 thru -1 of ¬
                    ("0000" & i)) & nameSuffix
        end repeat
    end tell
    activate
end run

Answer 1

fifth to last line should read:
set name of item i of jpegList to (text -4 thru -1 of ("0000" & i)) & nameSuffix
the 'text -x thru -1' bit specifies that the script should take the last x characters of the string.  using minus 4 gives you a range up to 9999.