Opens Safari's current tab in Private Browsing

gistfile1.applescript

tell application "Safari"
	activate
	set theURL to the URL of the current tab of the front window
	close current tab of window 1
end tell

tell application "System Events"
	tell process "Safari"
		tell menu bar 1
			click menu bar item "File"
			tell menu "File"
				click menu item "New Private Window"
			end tell
		end tell
	end tell
end tell

tell application "Safari"
	set URL of document 1 to theURL
end tell