bug#2153: 23.0.90; NS: Hang with do-applescript

[Adrian Robert]

What do you mean "Can't pop down"?  When I try this hitting cancel or  
ok both close the window and hide emacs.  Then there's an error:

Debugger entered--Lisp error: (error "AppleScript error 1")
  do-applescript("choose file")
  eval((do-applescript "choose file"))
  eval-last-sexp-1(t)
  eval-last-sexp(t)
  eval-print-last-sexp()
...

What should the behavior be with this applescript?