content: -- Version 1.0, (C) Ergonis Software, 2012-01-19
  -- Feel free to modify the script for your own use, but leave the copyright notice intact.
  
  tell application "System Events"
  	if (name of processes) does not contain "Safari" then return "--"
  end tell
  
  tell application "Safari"
  	try
  		return URL of document 1
  	on error
  		return "--"
  	end try
  end tell