set playlistName to «data utxt%@» as Unicode text
tell application "iTunes"
set x to (first track of library playlist 1 whose database ID is ("%@" as integer))
set theAlias to location of x as alias
add theAlias to playlist playlistName
end tell