1 files changed, 7 insertions, 0 deletions
diff --git a/src/cjrize.sml b/src/cjrize.sml
index 1f515552..d6d7ba5e 100644
--- a/src/cjrize.sml
+++ b/src/cjrize.sml
@@ -374,6 +374,13 @@ fun cifyExp (eAll as (e, loc), sm) =
                          query = query, body = body, initial = initial, prepared = NONE}, loc), sm)
         end
 
+      | L.EDml e =>
+        let
+            val (e, sm) = cifyExp (e, sm)
+        in
+            ((L'.EDml {dml = e, prepared = NONE}, loc), sm)
+        end
+
 
 fun cifyDecl ((d, loc), sm) =
     case d of