diff --git a/semantic-core/src/Data/Core/Pretty.hs b/semantic-core/src/Data/Core/Pretty.hs
index 305ebf623..0a8f4690a 100644
--- a/semantic-core/src/Data/Core/Pretty.hs
+++ b/semantic-core/src/Data/Core/Pretty.hs
@@ -90,7 +90,7 @@ prettyCore style = run . runReader @Prec 0 . go
 
             Record fs -> do
               fs' <- for fs $ \ (x, v) -> (name x <+> symbol "=" <+>) <$> go v
-              pure $ primitive "record" <+> encloseSep lbrace rbrace semi fs'
+              pure $ primitive "record" <+> encloseSep "{ " " }" semi fs'
 
             Unit     -> pure $ primitive "unit"
             Bool b   -> pure $ primitive (if b then "true" else "false")