--- a/src/jscomp.sml	Sun Dec 13 13:00:55 2009 -0500
+++ b/src/jscomp.sml	Sun Dec 13 14:20:41 2009 -0500
@@ -868,6 +868,7 @@
                           | EQuery _ => unsupported "Query"
                           | EDml _ => unsupported "DML"
                           | ENextval _ => unsupported "Nextval"
+                          | ESetval _ => unsupported "Nextval"
                           | EUnurlify _ => unsupported "EUnurlify"
                           | EReturnBlob _ => unsupported "EUnurlify"
                           | ERedirect _ => unsupported "ERedirect"
@@ -1142,6 +1143,13 @@
                  in
                      ((ENextval e, loc), st)
                  end
+               | ESetval (e1, e2) =>
+                 let
+                     val (e1, st) = exp outer (e1, st)
+                     val (e2, st) = exp outer (e2, st)
+                 in
+                     ((ESetval (e1, e2), loc), st)
+                 end
 
                | EUnurlify (e, t) =>
                  let