--- mlton.sml	2020-08-06 16:59:33.000000000 +0200
+++ mlton.sml_special2020boot	2020-08-04 18:34:33.000000000 +0200
@@ -1,4 +1,4 @@
-(* Copyright (C) 2010,2013,2016-2017 Matthew Fluet.
+(* Copyright (C) 2010,2013 Matthew Fluet.
  * Copyright (C) 1999-2008 Henry Cejtin, Matthew Fluet, Suresh
  *    Jagannathan, and Stephen Weeks.
  * Copyright (C) 1997-2000 NEC Research Institute.
@@ -28,7 +28,9 @@
     ; GC.collect ())
 
 fun size x =
-   C_Size.toInt (Primitive.MLton.size x)
+    C_Size.toLargeInt (Primitive.MLton.size x)
+
+fun sizeAll () : IntInf.int = ~1
 
 (* fun cleanAtExit () = let open Cleaner in clean atExit end *)