| Some (status, stm) when test stm -> (* "interesting" statement *)
let loc_begin, loc_end = HExtlib.loc_of_floc (get_loc stm) in
let raw_statement =
- String.sub content loc_begin (loc_end - loc_begin) in
+ Netconversion.ustring_sub `Enc_utf8 loc_begin (loc_end - loc_begin)
+ content in
callback raw_statement;
exaust (raw_statement :: acc) status
| Some (status, _stm) -> exaust acc status in