--- a/src/jscomp.sml	Thu Sep 24 07:52:57 2009 -0400
+++ b/src/jscomp.sml	Thu Sep 24 10:42:59 2009 -0400
@@ -912,11 +912,11 @@
                                          str (",cons({c:\"c\",v:function(s){var t=s.split(\"/\");var i=0;return "
                                               ^ unurl ^ "}},cons("),
                                          ek,
-                                         str (",cons("
+                                         str (",cons({c:\"c\",v:"
                                               ^ (case eff of
                                                      ReadCookieWrite => "true"
                                                    | _ => "false")
-                                              ^ ",null)))))}")],
+                                              ^ "},null)))))}")],
                                  st)
                             end
 
@@ -940,10 +940,10 @@
                                 val (e, st) = jsE inner (e, st)
                                 val (ek, st) = jsE inner (ek, st)
                             in
-                                (strcat [str "{c:\"f\",f:window.setTimeout,a:cons(",
+                                (strcat [str "{c:\"f\",f:sl,a:cons(",
+                                         e,
+                                         str ",cons(",
                                          ek,
-                                         str ",cons(",
-                                         e,
                                          str ",null))}"],
                                  st)
                             end