--- a/src/Pure/ML-Systems/polyml-4.0.ML Fri Nov 24 11:07:38 2000 +0100 +++ b/src/Pure/ML-Systems/polyml-4.0.ML Fri Nov 24 14:09:09 2000 +0100 @@ -96,7 +96,7 @@ (** interrupts **) -exception Interrupt; +exception Interrupt = SML90.Interrupt; local