let test str pos len=
  if str.[pos-1] = ' ' then
    Printf.printf "something\n"
  else
    failwith "Exception raised but object method missing from backtrace"

class test = object
  method put str pos len =
    let rec handle pos =
      if pos < len then
        handle (pos+1)
      else
        test str pos len in
    handle pos
end

let run_test t str =
  t#put str 0 (String.length str)

let () =
  Printexc.record_backtrace true;
  let t = new test in
  run_test t "test";;