2 files changed, 4 insertions, 4 deletions
diff --git a/new-luxc/source/luxc/lang/translation/r/procedure/common.jvm.lux b/new-luxc/source/luxc/lang/translation/r/procedure/common.jvm.lux
index f806805c0..85ccd90dc 100644
--- a/new-luxc/source/luxc/lang/translation/r/procedure/common.jvm.lux
+++ b/new-luxc/source/luxc/lang/translation/r/procedure/common.jvm.lux
@@ -63,7 +63,7 @@
 
 (syntax: (arity: {name s.local-identifier} {arity s.nat})
   (with-gensyms [g!_ g!proc g!name g!translate g!inputs]
-    (do @
+    (do {@ macro.monad}
       [g!input+ (monad.seq @ (list.repeat arity (macro.gensym "input")))]
       (wrap (list (` (def: #export ((~ (code.local-identifier name)) (~ g!proc))
                        (-> (-> (..Vector (~ (code.nat arity)) Expression) Expression)
@@ -91,7 +91,7 @@
   (-> Variadic (-> Text Proc))
   (function (_ proc-name)
     (function (_ translate inputsS)
-      (do macro.Monad<Meta>
+      (do {@ macro.Monad<Meta>}
         [inputsI (monad.map @ translate inputsS)]
         (wrap (proc inputsI))))))
 
diff --git a/new-luxc/source/luxc/lang/translation/r/procedure/host.jvm.lux b/new-luxc/source/luxc/lang/translation/r/procedure/host.jvm.lux
index 2793b40e8..3bd33955f 100644
--- a/new-luxc/source/luxc/lang/translation/r/procedure/host.jvm.lux
+++ b/new-luxc/source/luxc/lang/translation/r/procedure/host.jvm.lux
@@ -36,7 +36,7 @@
 ##   (-> Text @.Proc)
 ##   (case inputs
 ##     (^ (list& functionS argsS+))
-##     (do macro.Monad<Meta>
+##     (do {@ macro.Monad<Meta>}
 ##       [functionO (translate functionS)
 ##        argsO+ (monad.map @ translate argsS+)]
 ##       (wrap (lua.apply functionO argsO+)))
@@ -56,7 +56,7 @@
 ##   (-> Text @.Proc)
 ##   (case inputs
 ##     (^ (list& tableS [_ (#.Text field)] argsS+))
-##     (do macro.Monad<Meta>
+##     (do {@ macro.Monad<Meta>}
 ##       [tableO (translate tableS)
 ##        argsO+ (monad.map @ translate argsS+)]
 ##       (wrap (lua.method field tableO argsO+)))