Error in script to set album rating in iTunes

Question

Hi
I used to use the following script to set album ratings of albums in my iTunes library.  It used to work fine, but now it's not working.  When I try to debug it I am getting the following error:
"Scripting component error."
on this line in the third block:
repeat with R in (rating of tracks whose album is thisAlbum)
I wonder if anyone can spot what the problem might be?
Thanks,
Nick
  --Make a list of all the selected albums:
          set theAlbums to {}
          set theAlbumsRef to a reference to theAlbums
          set tempList to album of selection
          set thePreviousTitle to ""
          repeat with thisTitle in tempList
                    set thisTitle to thisTitle as text
                    if thisTitle is not thePreviousTitle then
                              copy thisTitle to the end of theAlbumsRef
                              set thePreviousTitle to thisTitle
                    end if
          end repeat
          set numberOfAlbums to count theAlbums
  --Make a list containing one track for each selected album:
          set theTracks to {}
          set theTracksRef to a reference to theTracks
          repeat with thisAlbum in theAlbums
                    copy (track 1 whose album is thisAlbum) to the end of theTracksRef
          end repeat
  --Set the album rating of each album contained in the selection:
          set theRatings to ""
          set k to 0
          repeat with thisTrack in theTracks
                    set k to k + 1
                    if k mod 25 = 0 then beep 1 -- for audio feedback
                    set thisAlbum to item k of theAlbums
                    set numberOfTracks to 0
                    repeat with k from 1 to (disc count of thisTrack)
                              try
                                        get (track count of track 1 whose (album is thisAlbum) and (disc number is k))
                                        set numberOfTracks to numberOfTracks + result
                              end try
                    end repeat
                    set songRating to 0
                    repeat with R in (rating of tracks whose album is thisAlbum)
                              if R > 80 then set R to 80
                              set songRating to songRating + R
                    end repeat
                    set thisRating to round (songRating / numberOfTracks)
                    set album rating of thisTrack to thisRating
                    set theRatings to theRatings & (album artist of thisTrack & tab & thisAlbum & tab & (thisRating as text) & return)
          end repeat
          display dialog "The album “" & thisAlbum & "” has a rating of " & thisRating with icon 1 buttons {"OK"} default button 1
end tell

Answer 1

problems like this are usually solvable by splitting up the line.  It doesn't look like it, but there's a whole lot going on in that compound statement. try:
tell application "iTunes"
          set ratingList to (rating of tracks whose album is thisAlbum)
          repeat with R in ratingList
                    if R > 80 then set R to 80
                    set songRating to songRating + R
          end repeat
end tell