test.patch

--- a/COPASI.R
+++ b/COPASI.R
@@ -94,7 +94,9 @@ function(name, .values, where = topenv(parent.frame()), suffix = "Value")
 enumToInteger <- function(name,type)
 {
    if (is.character(name)) {
-   ans <- as.integer(get(paste(".__E__", type, sep = ""))[name])
+   gettype <- paste(".__E__", type, sep = "")
+   if (!exists(gettype)) gettype <- paste(".__E__", substr(type, 3, nchar(type)), sep = "")
+   ans <- as.integer(get(gettype)[name])
    if (is.na(ans)) {warning("enum not found ", name, " ", type)}
    ans
    } 
@@ -103,7 +105,9 @@ enumToInteger <- function(name,type)
 enumFromInteger =
 function(i,type)
 {
-  itemlist <- get(paste(".__E__", type, sep=""))
+  gettype <- paste(".__E__", type, sep = "")
+  if (!exists(gettype)) gettype <- paste(".__E__", substr(type, 3, nchar(type)), sep = "")
+  itemlist <- get(gettype)
   names(itemlist)[match(i, itemlist)]
 }