Revealing a folder on Mac

[David Bovill]

on folder_Open someFolder
     replace "/" with ":" in someFolder
     put line 1 of the volumes into startUpDisk
     -- "Macintosh HD:Applications:Revolution 2.6.1:"
     put startUpDisk before someFolder

     put "tell application" && kwote("Finder") into someAppleScript
     put return & "activate" after someAppleScript
     put return & "open folder" && kwote("[[someFolder]]") after  
someAppleScript
     put return & "end tell" after someAppleScript
     put merge(someAppleScript) into someAppleScript
     do someAppleScript as AppleScript
end folder_Open


Does this work for people?