diff --git a/src/lib/currency/currency.ml b/src/lib/currency/currency.ml
index 39fa21fe55b..a37112d0658 100644
--- a/src/lib/currency/currency.ml
+++ b/src/lib/currency/currency.ml
@@ -474,10 +474,7 @@ module Make_str (A : Wire_types.Concrete) = struct
 
       type magnitude = Unsigned.t [@@deriving sexp, compare]
 
-      let create ~magnitude ~sgn =
-        { magnitude
-        ; sgn = (if Unsigned.(equal magnitude zero) then Sgn.Pos else sgn)
-        }
+      let create ~magnitude ~sgn = { magnitude; sgn }
 
       let sgn { sgn; _ } = sgn