use "ML-Systems/smlnj-basis-compat.ML" *after* Interrupt;

--- a/src/Pure/ML-Systems/smlnj.ML	Tue Sep 20 20:16:55 2005 +0200
+++ b/src/Pure/ML-Systems/smlnj.ML	Tue Sep 20 21:09:41 2005 +0200
@@ -69,12 +69,6 @@
 (*dummy implementation*)
 fun exception_trace f = f ();
 
-(case #version_id (Compiler.version) of
-  [110, x] => if x >= 44
-              then use "ML-Systems/smlnj-basis-compat.ML"
-              else ()
-| _ => ());
-
 
 (* toplevel pretty printing (see also Pure/install_pp.ML) *)
 
@@ -143,6 +137,12 @@
 
 end;
 
+(case #version_id (Compiler.version) of
+  [110, x] => if x >= 44
+              then use "ML-Systems/smlnj-basis-compat.ML"
+              else ()
+| _ => ());
+
 
 (** Signal handling: emulation of the Poly/ML Signal structure. Note that types
     Posix.Signal.signal and Signals.signal differ **)