diff --git a/src/FSharp/BigIntegerExtensions.fs b/src/FSharp/BigIntegerExtensions.fs
index 9696a61e..e3aff48d 100644
--- a/src/FSharp/BigIntegerExtensions.fs
+++ b/src/FSharp/BigIntegerExtensions.fs
@@ -27,8 +27,7 @@ module BigIntegerExtensions =
                 raise <| FormatException ("The value could not be parsed.")
 
             if str.[0] = '-' then
-                parseImpl str len 0I 1
-                |> bigint.Negate
+                -(parseImpl str len 0I 1)
             else
                 parseImpl str len 0I 0