Bug squashes

[vsys.git] / frontend.ml

diff --git a/frontend.ml b/frontend.ml
index 43c2ffa..e8526cc 100644 (file)
--- a/frontend.ml
+++ b/frontend.ml
@@ -77,6 +77,7 @@ object(this)
           fprintf logfd "Hm. %s disappeared or not empty. Looks like slice %s shot itself in the foot\n" fqp (this#get_slice_name ());flush logfd
 
   initializer 
+          (
         try 
           let s = Unix.stat root_dir in
             if (s.st_kind<>S_DIR) then
@@ -90,8 +91,10 @@ object(this)
                 Unix.mkdir root_dir 0o700
               end;
         with Unix.Unix_error(_,_,_) ->
+          begin
           try 
           Unix.mkdir root_dir 0o700;
           with _ -> ();
+          end);
         Directfifowatcher.add_dir_watch root_dir
 end