diff --git a/Intel/ArbbVM/Convenience.hs b/Intel/ArbbVM/Convenience.hs
--- a/Intel/ArbbVM/Convenience.hs
+++ b/Intel/ArbbVM/Convenience.hs
@@ -54,7 +54,7 @@
    liftIO, liftMs,
 
    -- These should probably be internal only:
-   getCtx, getFun,
+   getCtx, getFun, getConvFun, 
 
 
    -- low level 
@@ -286,7 +286,6 @@
      outvars <- L forM [0 .. length outty - 1]   (getParameter fun 1)
 
      -- Push on the stack:
-     -- BJS: Why 
      S.modify (\ (c,ls) -> (c, (ConvFunction nullfun fun):ls))
 
      -- Now generate body:
@@ -298,18 +297,24 @@
      S.modify (\ (c, h:t) -> (c, t))
      L endFunction fun
 
+     when debug_fundef$ print_$ "["++name++"] Function ended."
+
      -- EXPERIMENTAL!  Compile immediately!!
-     --when debug_fundef$ print_$ "["++name++"] Function ended. Compiling..."
+
      --L compile fun
      --when debug_fundef$ print_$ "["++name++"] Done compiling."
 
       -- Also create an executable wrapper 
+
      wrapper <- L beginFunction ctx fnt (name ++ "W") is_executable
+     when debug_fundef$ print_$ "["++name++ "W" ++"] Wrapper function begun."
      inputs  <- L forM [0 .. length inty  - 1] (getParameter wrapper 0)
      outputs <- L forM [0 .. length outty - 1] (getParameter wrapper 1) 
+     when debug_fundef$ print_$ "["++name++"]  Begin wrapper body codgen..."
      L callOp wrapper ArbbOpCall fun outputs inputs
+     when debug_fundef$ print_$ "["++name++"]  Done wrapper body codgen."
      L endFunction wrapper
-    
+     when debug_fundef$ print_$ "["++name++"] Wrapper function ended."
     
      return$ ConvFunction wrapper fun
 
diff --git a/arbb-vm.cabal b/arbb-vm.cabal
--- a/arbb-vm.cabal
+++ b/arbb-vm.cabal
@@ -1,5 +1,5 @@
 Name:           arbb-vm
-Version:        0.1.1.14
+Version:        0.1.1.17
 
 License:                BSD3
 License-file:           LICENSE