(* $Id: tracks_in_playlist.osa 376 2002-09-24 08:31:56Z comdog $ *)

tell application "iTunes"
	set myPlaylist to "Mac-iTunes test"
	set myString to ""
	repeat with i from 1 to count of tracks in playlist myPlaylist
		set thisName to name of track i in playlist myPlaylist
		set myString to myString & thisName & return
	end repeat
	return myString
end tell