diff -r 1a03ffc00a4a -r fe1f6a1707f7 src/Pure/ML-Systems/polyml.ML
--- a/src/Pure/ML-Systems/polyml.ML	Thu Aug 01 22:47:52 2013 +0200
+++ b/src/Pure/ML-Systems/polyml.ML	Thu Aug 01 23:10:46 2013 +0200
@@ -105,6 +105,7 @@
 PolyML.Compiler.reportUnreferencedIds := true;
 PolyML.Compiler.printInAlphabeticalOrder := false;
 PolyML.Compiler.maxInlineSize := 80;
+(*PolyML.Compiler.reportExhaustiveHandlers := true;*)
 
 fun ml_prompts p1 p2 = (PolyML.Compiler.prompt1 := p1; PolyML.Compiler.prompt2 := p2);