AppleScript to show a list of Safari tab URLS, to be used with TextExpander, but it crashes

gistfile1.applescript

tell application "System Events"
	set numSafari to count (every process whose name is "Safari")
end tell

if numSafari > 0 then
	
	tell application "Safari"
		
		set URLList to {}
		
		set windowCount to number of windows
		
		repeat with win from 1 to windowCount
			
			set tabCount to number of tabs in window win
			
			repeat with thisTab from 1 to tabCount
				
				set tabURL to URL of tab thisTab of window win
				set the end of URLList to tabURL
				
			end repeat
			
		end repeat
		
		set chosenURL to choose from list URLList
		
	end tell
	
	get "[%|](" & chosenURL & ")"
	
end if