proj4: broken (transit checkin)

Not getting good inverse on test:

library(oce)
source('map.R')
cs <- list(longitude=-64.49657,latitude=45.33462)
xy <- lonlat2xy(cs, projection="mercator")
xy2lonlat(xy)