a problem sourcing a file using chdir=TRUE

Dear R-users,

I used to give commands such as:

source(file="~/path/to/file.R", chdir=TRUE)

but with the latest v. 2.1.0 it does not seem to work anymore.
I tried to figure out what it was going on and it seems that the string
for which

class(file)

[1] "character"
is changed to

class(file)

[1] "file"       "connection"
when the connection is open by
file <- file(file, "r", encoding = encoding)

But this force the following if statement
if (chdir && is.character(file) && (path <- dirname(file)) != ".")
  { owd <- getwd()
    on.exit(setwd(owd))
    setwd(path)
  }
to be FALSE and then non changing of current directory is done.
Is this the desired behavior or some bug fix is required?