tell application "System Events"
    tell application process "Safari"
        try
            
            (* Get URLs of all tabs *)
            set urlList to {}
            set numWindows to count of windows
            repeat with w from 1 to numWindows
                set numTabs to count of radio buttons of window w
                repeat with t from 1 to numTabs
                    click radio button t of window w
                    set aURL to value of text field 1 of group 1 of splitter group 1 of window w
                    set urlList to urlList & aURL
                end repeat
            end repeat
            
        on error the errmsg number the errn
            display dialog errmsg buttons {"OK"} default button 1
        end try
    end tell
end tell

tell application "Safari"
    (* Close all windows *)
    set allWindows to every window
    repeat with w in allWindows
        close w
    end repeat
    
    (* Open all urls in one window *)
    my newWindow()
    set firstTab to true
    repeat with aURL in urlList
        if firstTab then
            set firstTab to false
        else
            my newTab()
        end if
        set the URL of document 1 to aURL
    end repeat
end tell


on newTab()
    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
end newTab
on newWindow()
    tell application "Safari" to activate
    tell application "System Events"
        tell process "Safari"
            click menu item "New Window" of menu "File" of menu bar 1
        end tell
    end tell
end newWindow