fixed update_level bug
fixed update_level bug

git-svn-id: 37248319af6e851e9168804c9b74d2ea80b9c036@10878 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02

msprotz/ocaml,hhugo/camlp4,msprotz/ocaml,eliberis/ocaml,eliberis/ocaml,eliberis/ocaml,msprotz/ocaml,yunxing/ocaml,msprotz/ocaml,yunxing/ocaml,gerdstolpmann/ocaml,gerdstolpmann/ocaml,yunxing/ocaml,eliberis/ocaml,yunxing/ocaml,msprotz/ocaml,gerdstolpmann/ocaml,gerdstolpmann/ocaml,eliberis/ocaml,chambart/camlp4,gerdstolpmann/ocaml,yunxing/ocaml,yallop/camlp4