>	I'm trying to use Toploop within a program I'm working on and some code 
>I'm feeding it is causing a type error.  Unfortunately, the best I've 
>been able to figure out is to use Toploop.print_exception_outcome or 
>Pcaml.report_error which just tell me
>
>
>		   Uncaught exception: Typecore.Error (_, _)
>
>
>Are there any hooks for printing out a useful type error message?  Or am 
>I going to need to compile directly against the type-checking code from 
>the compiler?  Thanks!

Take a look at driver/errors.ml.
It may be useful. 

Hope this helps,
Keiko.