iTunes の曲名にアーティスト名を付記する AppleScript

gistfile1.applescript

-- ========================================
-- アーティスト名をトラック名に加える
-- トラック名を "AC/DC - Back In Black" のようにできる
-- 参考：slowly but surely (http://d.hatena.ne.jp/hrc/20080620/1214096524)
-- ========================================

tell application "iTunes"
    set theTracks to selection of front browser window
    set theTracksRef to a reference to theTracks
    repeat with i from 1 to count of theTracksRef
        set theTrack to item i of my theTracksRef
        set name of theTrack to artist of theTrack & " - " & name of theTrack
    end repeat
end tell