Substring.all = Substring.full;

--- a/src/Pure/ML-Systems/polyml-4.1.4-patch.ML	Tue Oct 04 19:01:37 2005 +0200
+++ b/src/Pure/ML-Systems/polyml-4.1.4-patch.ML	Tue Oct 04 19:05:37 2005 +0200
@@ -22,3 +22,9 @@
   open TextIO;
   fun inputLine is = Option.getOpt (TextIO.inputLine is, "");
 end;
+
+structure Substring =
+struct
+  open Substring;
+  val all = full;
+end;