trying to figure out issue 339

Need to check with the new R, but this code works fine on the old R (as
does the case without importing ocedata, in fact).