diff --git a/diagnostics/treeChange.ml b/diagnostics/treeChange.ml
index 77b7153..45610c5 100644
--- a/diagnostics/treeChange.ml
+++ b/diagnostics/treeChange.ml
@@ -23,10 +23,10 @@ let correct_coordination paths tokens =
   let paths_ls = List.mapi (fun i (id,super,label) ->
     (i,id,super,label)) (Array.to_list paths) in
 
-  let ps a sons =
+  (* let ps a sons =
     print_endline a;
     List.iter (fun (i,_,_,_) -> print_endline (ExtArray.get tokens i).orth) sons;
-    print_endline "" in
+    print_endline "" in *)
 
   let rec correct_rec (i,id,super,label) sons =
     let left_s, right_s = List.partition (fun (a,b,c,d) -> a < i) sons in
diff --git a/parser/.gitignore b/parser/.gitignore
index 25d18b8..f32d897 100644
--- a/parser/.gitignore
+++ b/parser/.gitignore
@@ -1,3 +1,5 @@
 pipe
 swigra_test
 results/*
+parser2.cgi
+server2
diff --git a/parser/LCGvalence.ml b/parser/LCGvalence.ml
index 5fda46a..cd1ab32 100644
--- a/parser/LCGvalence.ml
+++ b/parser/LCGvalence.ml
@@ -227,7 +227,7 @@ let match_args modifications nodes e i t = function
 
 let rec assign_frames_and_senses_rec modifications valence nodes t =
 (*        printf "pred=%s id=%d\n" t.pred t.id;   *)
-      if t.id = 0 then failwith ("assign_frames_and_senses_rec: t.id=0 pred=" ^ t.pred) else
+      (* if t.id = 0 then failwith ("assign_frames_and_senses_rec: t.id=0 pred=" ^ t.pred) else *) (* FIXME: zbadać po co było to zabezpieczenie *)
       let e,node_valence = select_frames ((*if t.id >= Array.length valence then create_pro_frames t else*) valence.(t.id)) t in
       let node_valence = if node_valence <> [] then node_valence else ["1",(t.pred,StringSet.empty,0.,"","",Frame(EmptyAtrs[],[]))] in
       let l = Xlist.map node_valence (fun (i,(meaning,hipero,weight,lrole,lrole_attr,frame)) ->