val needs_filtered_use = true;

--- a/src/Pure/ML-Systems/polyml.ML	Mon May 08 11:35:19 2000 +0200
+++ b/src/Pure/ML-Systems/polyml.ML	Mon May 08 11:45:47 2000 +0200
@@ -134,7 +134,4 @@
 
 (* non-ASCII input (see also Thy/use.ML) *)
 
-val needs_filtered_use =
-  (case explode ml_system of
-    "p" :: "o" :: "l" :: "y" :: "m" :: "l" :: "-" :: "3" :: _ => true
-  | _ => false);
+val needs_filtered_use = true;