--- bisect-1.0.old/src/instrument.ml 2009-12-17 18:31:36.000000000 +0000 +++ bisect-1.0/src/instrument.ml 2011-01-06 16:37:33.558696380 +0000 @@ -149,8 +149,8 @@ method class_str_item csi = match super#class_str_item csi with | Ast.CrIni (loc, e) -> Ast.CrIni (loc, (wrap_expr Common.Class_init e)) - | Ast.CrMth (loc, id, priv, e, ct) -> Ast.CrMth (loc, id, priv, (wrap_expr Common.Class_meth e), ct) - | Ast.CrVal (loc, id, mut, e) -> Ast.CrVal (loc, id, mut, (wrap_expr Common.Class_val e)) + | Ast.CrMth (loc, id, override, priv, e, ct) -> Ast.CrMth (loc, id, override, priv, (wrap_expr Common.Class_meth e), ct) + | Ast.CrVal (loc, id, override, mut, e) -> Ast.CrVal (loc, id, override, mut, (wrap_expr Common.Class_val e)) | x -> x method expr e = let e' = super#expr e in