bindingIsLocked returns illogical logical

bindingIsLocked applied to a locked binding returns a 'logical' that
is niether true nor false.

Martin

e <- new.env()
e$x <- 1
e$y <- 2
lockBinding("x", e)

NULL

bindingIsLocked("x", e)

[1] TRUE

bindingIsLocked("x", e)==TRUE

[1] FALSE

bindingIsLocked("x", e)==FALSE

[1] FALSE

bindingIsLocked("y", e)

[1] FALSE

bindingIsLocked("y", e)==FALSE

[1] TRUE

bindingIsLocked("y", e)==TRUE

[1] FALSE

sessionInfo()

R version 2.4.0 Under development (unstable) (2006-05-13 r38060) 
x86_64-unknown-linux-gnu 

attached base packages:
[1] "methods"   "stats"     "graphics"  "grDevices" "utils"     "datasets" 
[7] "base"