GetTape returns error

[calbertsen]

In the GetTape function, getDLLRegisteredRoutines is hard coded to look in "sam".
To work in general, I believe the line should be:

ok <- "getSetGlobalPtr" %in% names(getDLLRegisteredRoutines(obj$env$DLL)$.Call)