Unexpected source() behavior in R-devel

Why am I seeing the following in R-devel (sept 2, 2006 build) on opensuse 
10.1?  I'm sure it is something simple I am missing, but I just don't see it 
(output below).  

Thanks,
Sean

readLines(url("http://www.bioconductor.org/biocLite.R"))

[1] "source(\"http://bioconductor.org/getBioC.R\")"       
[2] ""                                                    
[3] "biocLite <- function(pkgs, groupName=\"lite\", ...)" 
[4] "{"                                                   
[5] "    if (missing(pkgs))"                              
[6] "        getBioC(groupName=groupName, ...)"           
[7] "    else"                                            
[8] "        getBioC(pkgs=pkgs, groupName=groupName, ...)"
[9] "}"

source(url("http://www.bioconductor.org/biocLite.R"))

Error in file(file, "r", encoding = encoding) : 
	unable to open connection
In addition: Warning message:
cannot open: HTTP status was '404 Not Found'

sessionInfo()

R version 2.4.0 Under development (unstable) (2006-09-02 r39068) 
x86_64-unknown-linux-gnu 

locale:
LC_CTYPE=en_US.UTF-8;LC_NUMERIC=C;LC_TIME=en_US.UTF-8;LC_COLLATE=en_US.UTF-8;LC_MONETARY=en_US.UTF-8;LC_MESSAGES=en_US.UTF-8;LC_PAPER=en_US.UTF-8;LC_NAME=C;LC_ADDRESS=C;LC_TELEPHONE=C;LC_MEASUREMENT=en_US.UTF-8;LC_IDENTIFICATION=C

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