Script Works on MacBook and Mac Mini but Not MacBook Air

Question

I just bought a new Mac Mini and 11' MacBook Air, and I have a script that works on the former but not the later. Running it on my Air generates the error, "error "Finder got an error: Can’t set alias "My Hard Drive!:directory path:File Name copy.doc" to "FileName}doc"." number -10006 from alias "My Hard Drive!:directory path:File Name copy.doc".
Here is the script:
tell application "Finder"
set theFile to item 1 of (get selection)
set TheName to name of theFile
set duplicatedFile to (duplicate theFile) as alias
end tell
set capName to do shell script "/bin/echo " & quoted form of TheName & " | /usr/bin/awk '{for(i=1;i<=NF;i++)sub(/./,toupper(substr($i,1,1)),$i)}1' | tr -cd [:alnum:]_. "
tell application "Finder" to set name of duplicatedFile to capName
set longURL to "http://domainname.com/" & capName
set curlCMD to "curl --stderr /dev/null "http://bit.ly/api?url=" & longURL & """
set bitLy to (do shell script curlCMD)
set the clipboard to bitLy
set curlFTP to "curl -T " & quoted form of POSIX path of duplicatedFile & space & quoted form of ("ftp://unsername:[email protected]/path/" & capName)
do shell script curlFTP
tell application "Finder" to move (duplicatedFile as alias) to trash

Answer 1

There is a problem with duplicate names.
!http://farm2.static.flickr.com/1283/5188829536_841015b22c.jpg!
I am not sure what statement failed for you. Please clarify if I guessed wrong.
I did encounter some problem with the exclamition point in a name.
There could be a problem with exclamation point in a url, but didn't try.
You could use unix to do the rename.
tell application "Finder"
   set theFile to item 1 of (get selection)
   set TheName to name of theFile
   set duplicatedFile to (duplicate theFile) as alias
end tell
log duplicatedFile
set capName to do shell script "/bin/echo " & quoted form of TheName & " | /usr/bin/awk '{for(i=1;i<=NF;i++)sub(/./,toupper(substr($i,1,1)),$i)}1' | tr -cd [:alnum:]_. "
-- Use unix to rename
set unixName to POSIX path of duplicatedFile
log "unixName=" & unixName
set baseP to do shell script "dirname " & quoted form of unixName
log "baseP=" & baseP
set baseN to do shell script "basename " & quoted form of unixName
set baseN to quoted form of baseN
set baseP to quoted form of baseP
-- Rename the file. 
set what to do shell script "cd " & baseP & "; " & "mv " & baseN & " " & capName
-- tell application "Finder" to set name of unixName to capName
log "what=" & what
set longURL to "http://domainname.com/" & capName
log "longURL=" & longURL
set curlCMD to "curl --stderr /dev/null \"http://bit.ly/api?url=" & longURL & "\""
log "curlCMD=" & curlCMD
set bitLy to (do shell script curlCMD)
set the clipboard to bitLy
set curlFTP to "curl -T " & quoted form of POSIX path of duplicatedFile & space & quoted form of ("ftp://unsername:[email protected]/path/" & capName)
do shell script curlFTP
tell application "Finder" to move (duplicatedFile as alias) to trash
Robert