iPod My ripped DVD TV episodes won't stay labeled properly

tell application "iTunes"
	if version as string is less than "7.0" then
		display dialog "This script requires iTunes 7 or better." buttons {"Cancel"} default button 1 with icon 0 giving up after 30
	end if
	
	
	tell source "Library"
		tell playlist "Test"
			try
				repeat with this_track in every track
					
					-- Movies
					--set video kind of this_track to "kVdM" 
					
					-- Music Video
					--set video kind of this_track to "kVdV"  
					
					-- TV show
					set video kind of this_track to "kVdT"
					
					
					
				end repeat
				
			on error
				display dialog "Error while changing Video Kind." buttons {"Cancel"} default button 1
			end try
		end tell
	end tell
	
	
end tell