src/Pure/ML-Systems/polyml.ML

--- a/src/Pure/ML-Systems/polyml.ML	Mon Mar 31 23:08:54 2008 +0200
+++ b/src/Pure/ML-Systems/polyml.ML	Mon Mar 31 23:08:55 2008 +0200
@@ -39,6 +39,6 @@
 fun use_file tune output verbose name =
   let
     val instream = TextIO.openIn name;
-    val txt = TextIO.inputAll instream before TextIO.closeIn instream;
+    val txt = Exn.release (Exn.capture TextIO.inputAll instream before TextIO.closeIn instream);
   in use_text tune (1, name) output verbose txt end;