Setting working directory interactively within a function

Is there anyway to have a function prompt the user for a working 
directory, equivalent to file.choose()?

It's relatively easy to get a text prompt, but I don't think we've got a 
function that's equivalent to the Windows menu item "File|Change 
dir...".  We probably should.

Duncan Murdoch