[R] q() ==> Segmentation fault

[Omar Lakkis]

I created the simple library, attached. When I terminate an R session
where the library has been loaded with q() a segmentation fault is
thrown. Is there any cleaning that I should be doing?

>From R session:
> q()
Segmentation fault

or from shell:
$ R CMD BATCH r.in
/usr/lib/R/bin/BATCH: line 55: 17359 Done                    ( echo
"invisible(options(echo = TRUE))"; cat ${in}; echo "proc.time()" )
     17360 Segmentation fault      | ${R_HOME}/bin/R ${opts} >${out} 2>&1

Attached, please, find the librray tmc.tmp. The library contains the
three files below.
I am using R 2.1.0 and RODBC 1.1-3 on debian. 

::::::::::::::
R/zzz.R
::::::::::::::
.First.lib <-
function (which.lib.loc, package, ...) {
        library(RODBC)

        connect()
}

.Last.lib <-
function (libpath, ...) {
}
::::::::::::::
R/db.R
::::::::::::::
connect <- function() {
        conn <<- odbcConnect('tmc', believeNRows = FALSE)
}

::::::::::::::
data/data.r
::::::::::::::
conn <- NULL