Removed trace.

types/types.ml

@@ -1835,8 +1835,8 @@ struct
     Print.assign_name t;
     t;;
 
-  let trace msg = output_string stderr (msg ^ "\n"); 
-    flush stderr;;
+  let trace msg = (* output_string stderr (msg ^ "\n"); 
+		     flush stderr *) ();;
 
   let print_to_string f =
     let b = Buffer.create 1024 in