--- a/src/cjrize.sml	Thu Jul 10 11:13:49 2008 -0400
+++ b/src/cjrize.sml	Thu Jul 10 14:02:54 2008 -0400
@@ -46,7 +46,7 @@
 
 type t = int * int FM.map * (int * (string * L'.typ) list) list
 
-val empty = (0, FM.empty, [])
+val empty : t = (1, FM.insert (FM.empty, (L.TRecord [], ErrorMsg.dummySpan), 0), [])
 
 fun find ((n, m, ds), xts, xts') =
     let
@@ -158,6 +158,15 @@
             ((L'.ELet (xes, e), loc), sm)
         end
 
+      | L.EStrcat _ => raise Fail "Cjrize EStrcat"
+
+      | L.EWrite e =>
+        let
+            val (e, sm) = cifyExp (e, sm)
+        in
+            ((L'.EWrite e, loc), sm)
+        end
+
 fun cifyDecl ((d, loc), sm) =
     case d of
         L.DVal (x, n, t, e) =>