--- a/src/Pure/ML-Systems/polyml-4.9.1.ML Thu Sep 28 23:42:59 2006 +0200
+++ b/src/Pure/ML-Systems/polyml-4.9.1.ML Thu Sep 28 23:43:00 2006 +0200
@@ -7,3 +7,5 @@
use "ML-Systems/polyml-4.1.4-patch.ML";
use "ML-Systems/polyml.ML";
+
+val share_data = SOME (fn x => (PolyML.shareCommonData x; x));