tell application "Safari"
	try
		set the URL_list to {"http://modulopi.free.fr/", "http://www.supercard.us", "http://tom.lightheadsw.com/supercard/", "http://www.chiltonwebb.com/"}
		repeat with i from 1 to  the (count of the the URL_list)
			set this_URL to item i of the URL_list
			tell application "Safari" to activate
			tell application "System Events"
				tell process "Safari"
					click menu item "New Tab" of menu "File" of menu bar 1
				end tell
			end tell
			set the URL of document 1 to this_URL
			
		end repeat
	on error the error_message number the error_number
		display dialog the error_message buttons {"OK"} default button 1
	end try
end tell