Applescript 'Contacts' code error with Maverick

Question

After upgrading from MacOSX 10.6.8 to Maverick my applescripts are creating errors. One example is the following script which works fine if you run it from within the 'Applescript Editor.app' (v 2.6.1) under Maverick but creates a "Data paste section" error -1743 from the 'Contacts' app if you run the script indpendently. Any hints anyone on how I might return this script to full indpendent functionality?
Script to load a raw address for conversion and inserting into Address Book
Wish list
1.    Check if 'New Address' Group already exists and if it doesn't then create one.
2.    Provide a dialog that enables the user to specify which group to attach the new address to.
3.    Find the new address and show it in Address Book.
4.    Create a list of existing Groups to chose from to reduce keyboard error. --> done but the resultant window is not complete - no scroll bar becomes active.
Problem code:
set theFiles to (every file of folder addressesFolder) as alias list
global ABactive, aExists
property testText : "http://address-parser.com"
property newGroup : "New Addresses" --> Default group for new address additions
property aPrefix : ""
property aFirstName : ""
property aMiddleName : ""
property aLastName : ""
property aSuffix : ""
property aPosition : ""
property aDepartment : ""
property aCompany : ""
property aCompany2 : ""
property aStreet : ""
property aStreet2 : ""
property aPostbox : ""
property aPlace : ""
property aPostPlace : ""
property aState : ""
property aZip : ""
property aPostboxCode : ""
property aCountry : ""
property aPhone : ""
property aPhone2 : ""
property aMobile : ""
property aFax : ""
property aEmail : ""
property aWebsite : ""
property aNote : ""
set newline to ASCII character 10
-- Select the desired file
try
    set addressFile to (choose file with prompt "Choose an address file:" of type {"public.text"} without invisibles) as text
    --    set addressFile to (choose file with prompt "Choose an address file:" of type {"public.text"} default location addressesFolder without invisibles) as text
    -- note the data type set for 'addressFile' is 'text'
on error number -128
    -- User pressed 'Cancel' button
    return
end try
set AppleScript's text item delimiters to {":"}
set fileName to last text item of addressFile
set AppleScript's text item delimiters to {""}
(* If there is an error while processing the address file, delay it just long enough to close the file access. Otherwise continue. *)
set addressFileReference to open for access addressFile
-- 'addressFileReference' is the 'returned access number'
-- Check first to see whether the file was created with output from the expected source
try
    set wholeFile to read addressFileReference as text
    if (offset of testText in wholeFile) is equal to 0 then
        display dialog "File chosen is:" & return & fileName & return & return & "This file does not appear to contain output from the 'http://www.address-parser.com' demo page." buttons {"Cancel"} default button 1 with title "Error!" with icon stop
    end if
on error number -128
    -- User pressed 'Cancel' button
    close access addressFileReference
    set wholeFile to ""
    return
end try
close access addressFileReference
set wholeFile to ""
-- Reopen file (need to clarify why EOF error if two read calls made with file open).
set addressFileReference to open for access addressFile
try
    set AppleScript's text item delimiters to {""}
    -- Read address file contents in 'addressFileContents' as a list delimited by paragraph and tab.
    set x to paragraphs of (read addressFileReference as text)
    set addressFileContents to {}
    set AppleScript's text item delimiters to tab
    repeat with i from 1 to count x
        set addressFileContents's end to x's item i's text items
    end repeat
    set AppleScript's text item delimiters to {""}
    repeat with i from 1 to count of addressFileContents
        if (item i of addressFileContents) is not {} then
            --Every line must be checked as there is no set order
            if text item 1 of (item i of addressFileContents) is "Prefix= " then ¬
                set aPrefix to text item 2 of (item i of addressFileContents)
            if text item 1 of (item i of addressFileContents) is "First name= " then ¬
                set aFirstName to text item 2 of (item i of addressFileContents)
            if text item 1 of (item i of addressFileContents) is "Middle name= " then ¬
                set aMiddleName to text item 2 of (item i of addressFileContents)
            if text item 1 of (item i of addressFileContents) is "Last name= " then ¬
                set aLastName to text item 2 of (item i of addressFileContents)
            if text item 1 of (item i of addressFileContents) is "Suffix= " then ¬
                set aSuffix to text item 2 of (item i of addressFileContents)
            if text item 1 of (item i of addressFileContents) is "Position= " then ¬
                set aPosition to text item 2 of (item i of addressFileContents)
            if text item 1 of (item i of addressFileContents) is "Department= " then ¬
                set aDepartment to text item 2 of (item i of addressFileContents)
            if text item 1 of (item i of addressFileContents) is "Company= " then ¬
                set aCompany to text item 2 of (item i of addressFileContents)
            if text item 1 of (item i of addressFileContents) is "Company - line 2= " then ¬
                set aCompany2 to text item 2 of (item i of addressFileContents)
            if text item 1 of (item i of addressFileContents) is "Street address= " then ¬
                set aStreet to text item 2 of (item i of addressFileContents)
            if text item 1 of (item i of addressFileContents) is "Street address - line 2= " then ¬
                set aStreet2 to text item 2 of (item i of addressFileContents)
            if text item 1 of (item i of addressFileContents) is "Postbox address= " then ¬
                set aPostbox to text item 2 of (item i of addressFileContents)
            if text item 1 of (item i of addressFileContents) is "Place name= " then ¬
                set aPlace to text item 2 of (item i of addressFileContents)
            if text item 1 of (item i of addressFileContents) is "Post place name= " then ¬
                set aPostPlace to text item 2 of (item i of addressFileContents)
            if text item 1 of (item i of addressFileContents) is "State/Region/Province= " then ¬
                set aState to text item 2 of (item i of addressFileContents)
            if text item 1 of (item i of addressFileContents) is "ZIP/Postal code= " then ¬
                set aZip to text item 2 of (item i of addressFileContents)
            if text item 1 of (item i of addressFileContents) is "Postal code of postbox= " then ¬
                set aPostboxCode to text item 2 of (item i of addressFileContents)
            if text item 1 of (item i of addressFileContents) is "Country= " then ¬
                set aCountry to text item 2 of (item i of addressFileContents)
            if text item 1 of (item i of addressFileContents) is "Phone= " then ¬
                set aPhone to text item 2 of (item i of addressFileContents)
            if text item 1 of (item i of addressFileContents) is "Phone 2= " then ¬
                set aPhone2 to text item 2 of (item i of addressFileContents)
            if text item 1 of (item i of addressFileContents) is "Mobile phone= " then ¬
                set aMobile to text item 2 of (item i of addressFileContents)
            if text item 1 of (item i of addressFileContents) is "Fax= " then ¬
                set aFax to text item 2 of (item i of addressFileContents)
            if text item 1 of (item i of addressFileContents) is "Email= " then ¬
                set aEmail to text item 2 of (item i of addressFileContents)
            if text item 1 of (item i of addressFileContents) is "Web site= " then ¬
                set aWebsite to text item 2 of (item i of addressFileContents)
            --Collect unrecognised elements and place them in the 'Note' field
            if text item 1 of (item i of addressFileContents) contains "Unrecognized values:" then
                set i to i + 1
                set aNote to "Additional address bits:"
                repeat with i from i to count of addressFileContents
                    --display dialog "Note text reads:" & return & "aNote:" & tab & "'" & aNote & "'" & return & "Line #:" & tab & i & return & (item i of addressFileContents) as text default button 1 with title "Debug Dialog"
                    if (item i of addressFileContents) is not {} then
                        if item 1 of (item i of addressFileContents) is "" and ¬
                            item 2 of (item i of addressFileContents) is not "" then
                            set aNote to aNote & newline & text item 2 of (item i of addressFileContents)
                        end if
                    end if
                end repeat
            end if
        end if
    end repeat
on error errMsg number errNum
    close access addressFileReference
    -- do some sort of error processing here
    display dialog "An error occurred with the following number and description: " & return & errNum & return & errMsg & return & return & "Item " & (i as string) & tab & "'" & (item i of addressFileContents) & "'" with title "Data load section."
    error errMsg number errNum
end try
close access addressFileReference
--Debug dialogs
--display dialog (item 1 of addressFileContents as text) & return & return & (item 2 of addressFileContents as text) & return & return & (item 3 of addressFileContents as text) & return & return & (item 4 of addressFileContents as text)
--display dialog "title:" & tab & tab & tab & aPrefix & return & "first name:" & tab & tab & aFirstName & return & "middle name:" & tab & tab & aMiddleName & return & "last name:" & tab & tab & aLastName & return & "suffix:" & tab & tab & tab & aSuffix & return & "job title:" & tab & tab & tab & aPosition & return & "department:" & tab & aDepartment & return & "organization:" & tab & aCompany with title "Just prior to new record insertion:" with icon note
--check if Contacts application is active
tell application "System Events"
    if exists application process "Contacts" then
        set ABactive to true
    else
        set ABactive to false
    end if
end tell
--display dialog "title:" & tab & tab & tab & aPrefix & return & "first name:" & tab & tab & aFirstName & return & "middle name:" & tab & tab & aMiddleName & return & "last name:" & tab & tab & aLastName & return & "suffix:" & tab & tab & tab & aSuffix & return & "job title:" & tab & tab & tab & aPosition & return & "department:" & tab & aDepartment & return & "organization:" & tab & aCompany with title "Just prior to create new entry:" with icon note
--create new address entry
tell application "Contacts"
    try
        --if the aCompany2 variable is filled append its contents to the aCompany variable
        if aCompany2 is equal to "" then
            set thePerson to make new person with properties ¬
                {title:aPrefix, first name:aFirstName, middle name:aMiddleName, last name:aLastName, suffix:aSuffix, job title:aPosition, department:aDepartment, organization:aCompany}
        else
            set aCompany to aCompany & newline & aCompany2
            set thePerson to make new person with properties ¬
                {title:aPrefix, first name:aFirstName, middle name:aMiddleName, last name:aLastName, suffix:aSuffix, job title:aPosition, department:aDepartment, organization:aCompany}
        end if
        --set the Company view binary if no First and Last name
        if (first name of thePerson is equal to "") and (last name of thePerson is equal to "") then ¬
            set the company of thePerson to true
        tell thePerson
            if aPhone is not equal to "" then ¬
                make new phone at end of phones with properties ¬
                    {label:"work", value:aPhone}
            if aPhone2 is not equal to "" then ¬
                make new phone at end of phones with properties ¬
                    {label:"other", value:aPhone2}
            if aMobile is not equal to "" then ¬
                make new phone at end of phones with properties ¬
                    {label:"mobile", value:aMobile}
            if aFax is not equal to "" then ¬
                make new phone at end of phones with properties ¬
                    {label:"fax", value:aFax}
            if aEmail is not equal to "" then ¬
                make new email at end of emails with properties ¬
                    {label:"Work", value:aEmail}
            if aWebsite is not equal to "" then ¬
                make new url at end of urls with properties ¬
                    {label:"Work", value:aWebsite}
            if aStreet is not equal to "" then
                if aStreet2 is equal to "" then
                    make new address at end of addresses with properties ¬
                        {label:"work", street:aStreet, city:aPlace, state:aState, zip:aZip, country:aCountry}
                else
                    make new address at end of addresses with properties ¬
                        {label:"work", street:aStreet & ", " & aStreet2, city:aPlace, state:aState, zip:aZip, country:aCountry}
                end if
            end if
            if aPostPlace is equal to "" then set aPostPlace to aPlace
            if aPostbox is not equal to "" then
                if aPostboxCode is not equal to "" then
                    make new address at end of addresses with properties ¬
                        {label:"postal", street:aPostbox, city:aPostPlace, state:aState, zip:aPostboxCode, country:aCountry}
                else
                    make new address at end of addresses with properties ¬
                        {label:"postal", street:aPostbox, city:aPlace, state:aState, zip:aZip, country:aCountry}
                end if
            end if
            if aNote is not equal to "" then set note to aNote
        end tell
        -- place the new entry into a group
        set myGroups to name of every group
        set theGroup to (choose from list myGroups with prompt "Attach to which group?" without multiple selections allowed and empty selection allowed) as text
        --If user selects 'Cancel' button the value of the result variable is 'false'
        if theGroup is not "false" then
            add thePerson to group theGroup
        else
            -- create a default group and place the entry in there; first testing to see whether the default group already exists
            try
                if group newGroup exists then ¬
                    display dialog "newGroup exists" with icon 1
                add thePerson to group newGroup
            on error number -1728
                -- newGroup does not exist so create it
                display dialog "newGroup does not exist. Make new group with newGroup" with icon 1
                set theGroup to make new group with properties {name:newGroup}
                add thePerson to group newGroup
            end try
        end if
        save application "Contacts"
        set selection to (thePerson)
        activate
--set flag that new address entry was successful by seeking
        if the selection is equal to properties ¬
            {title:aPrefix, first name:aFirstName, ¬
            middle name:aMiddleName, last name:aLastName, ¬
            suffix:aSuffix, job title:aPosition, ¬
            department:aDepartment, organization:aCompany} then ¬
        set aExists to true
    on error errMsg number errNum
        -- do some sort of error processing here
        display dialog "An error occurred with the following number and description: " & return & errNum & return & errMsg with title "Data paste section."
        error errMsg number errNum
    end try
    --if we opened the AB, we'll close it
    if not ABactive then quit
end tell
--clear address variables content in case of repeat use
set aPrefix to ""
set aFirstName to ""
set aMiddleName to ""
set aLastName to ""
set aSuffix to ""
set aPosition to ""
set aDepartment to ""
set aCompany to ""
set aCompany2 to ""
set aStreet to ""
set aStreet2 to ""
set aPostbox to ""
set aPlace to ""
set aState to ""
set aZip to ""
set aPostboxCode to ""
set aCountry to ""
set aPhone to ""
set aPhone2 to ""
set aMobile to ""
set aFax to ""
set aEmail to ""
set aWebsite to ""
set aNote to ""
-- Delete original file if contents have been successfully added
if aExists then
    try
        tell application "Finder"
            if exists file addressFile then
                delete file addressFile --moves it to the trash
            end if
        end tell
    on error errMsg number errNum
        display dialog "Inserting new address was successfiul, however an error occurred while deleting the original file:" & return & addressFile buttons {"Cancel"} default button 1 with title "Error!" with icon stop
        display dialog ""
    end try
end if
-- End of 'add address' script

Answer 1

Well, after a few days of restoring my cellphone (The C6-01 I mentioned before), I came to this:
- After Hard resetting, the Lock Code is still erroneous;
- After firmware reinstalling, Lock Code is erroneous;
- Pulling out the battery, leaving the cellphone with no power for several hours, give the same result;
- Downgrading firmware (previous version) did not fix the problem;
Interesting thing is, after power on, the cellphone asks for the code lock: entering ANY number, returns "Code Error", and simply goes back to normal operation.
Everything is working, except I can no use de Lock Code, or any function related to it.
Of course, is pretty annoying to enter the lock code every time I power-on the cell.