diff --git a/R/r_instrument_ll.R b/R/r_instrument_ll.R
index 0f14618..8a3099c 100644
--- a/R/r_instrument_ll.R
+++ b/R/r_instrument_ll.R
@@ -12,6 +12,7 @@
 get_wrapper_expression <- function() {
     wrapper_expression <- expression(
     { 
+
         if (pkg.env$INSTRUMENTATION_ENABLED) {
             NULL
             ## Append to depth counter
@@ -29,22 +30,6 @@ get_wrapper_expression <- function() {
     }
     )
 
-    ## Version 9 - only otf2, no max depth
-    #if (VERSION_9) {
-    #.wrapper_expression <- eval( substitute(
-    #expression(
-    #{ 
-    #    if (pkg.env$INSTRUMENTATION_ENABLED) {
-    #        ## OTF2 Event
-    #        evtWriter_Write(X_regionRef_X,T)
-    #        on.exit(evtWriter_Write(X_regionRef_X,F), add=TRUE)
-    #    }
-    #}
-    #)
-    #        , list(X_regionRef_X=regionRef)
-    #) )
-    #}
-
     wrapper_expression
 }
 
@@ -64,7 +49,7 @@ get_wrapper_expression <- function() {
 #' @export
 insert_instrumentation <- function(func, func_name, func_index, regionRef, package_name, flag_user_function=FALSE, env_is_locked=TRUE) {
     
-    .wrapper_expression= eval(substitute(get_wrapper_expression(),
+    .wrapper_expression = eval(substitute(get_wrapper_expression(),
                         list(X_regionRef_X=regionRef)))
 
     ## Copy and wrap function definition
diff --git a/R/r_utils.R b/R/r_utils.R
index 304ef75..9ae79cf 100644
--- a/R/r_utils.R
+++ b/R/r_utils.R
@@ -42,11 +42,3 @@ rTrace_time <- function() {
     Sys.time()
 }
 
-#' get_env
-#' @description Get environment object for this package rTrace
-#' @return Environment
-get_env <- function() {
-   as.environment("package:rTrace") 
-}
-
-