it compiles, now we get "exc during Lwt.async: Not_found"

.config/init.ml

@@ -9,10 +9,15 @@ let by_id s = Dom_html.getElementById s
 let by_id_coerce s f =
   Js.Opt.get
     (f (Dom_html.getElementById s))
-    (fun () -> raise Not_found)
+    (fun () ->
+      Firebug.console##log (F.str "by_id_coerce Not_found");
+      raise Not_found)
 
 let do_by_id s f =
-  try f (Dom_html.getElementById s) with Not_found -> ()
+  try f (Dom_html.getElementById s)
+  with Not_found ->
+    Firebug.console##log (F.str "do_by_id Not_found");
+    ()
 
 let resize ~container ~textbox () =
   Lwt.pause () >>= fun () ->
@@ -47,7 +52,10 @@ let setup_workspace ~container cstore : unit Lwt.t =
     Lwt_list.iter_s
       (fun (step, tree) ->
         Firebug.console##log (F.str ".config/workspace/%s" step);
-        Store.S.Tree.get tree [] >>= fun contents ->
+        (try Store.S.Tree.get tree []
+         with Not_found ->
+           Lwt.return "print_newline \"rootstore:// not found?\";;")
+        >>= fun contents ->
         let headers =
           headers_of_string_list (String.split_on_char '\n' contents)
         in