--- a/src/jscomp.sml	Thu Dec 10 12:06:03 2009 -0500
+++ b/src/jscomp.sml	Thu Dec 10 13:32:09 2009 -0500
@@ -870,6 +870,7 @@
                           | ENextval _ => unsupported "Nextval"
                           | EUnurlify _ => unsupported "EUnurlify"
                           | EReturnBlob _ => unsupported "EUnurlify"
+                          | ERedirect _ => unsupported "ERedirect"
 
                           | ESignalReturn e =>
                             let
@@ -1081,6 +1082,12 @@
                  in
                      ((EReturnBlob {blob = blob, mimeType = mimeType, t = t}, loc), st)
                  end
+               | ERedirect (e, t) =>
+                 let
+                     val (e, st) = exp outer (e, st)
+                 in
+                     ((ERedirect (e, t), loc), st)
+                 end
 
                | EWrite e =>
                  let