1 files changed, 2 insertions, 0 deletions
diff --git a/src/cloconv.sml b/src/cloconv.sml
index b403b659..bf877d28 100644
--- a/src/cloconv.sml
+++ b/src/cloconv.sml
@@ -185,6 +185,8 @@ fun ccExp env ((e, loc), D) =
             ((L'.EField (e1, x), loc), D)
         end
 
+      | L.EStrcat _ => raise Fail "Cloconv EStrcat"
+
 fun ccDecl ((d, loc), D) =
     case d of
         L.DVal (x, n, t, e) =>