Bug fix.
Bug fix.

git-svn-id: efe74b0ef94c0e74fec03e642c3f133b6a59c353@15549 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02

eliberis/ocaml,gerdstolpmann/ocaml,msprotz/ocaml,yunxing/ocaml,eliberis/ocaml,eliberis/ocaml,eliberis/ocaml,gerdstolpmann/ocaml,yunxing/ocaml,yunxing/ocaml,msprotz/ocaml,gerdstolpmann/ocaml,eliberis/ocaml,gerdstolpmann/ocaml,gerdstolpmann/ocaml,msprotz/ocaml,yunxing/ocaml,yunxing/ocaml,msprotz/ocaml,msprotz/ocaml