diff --git a/Stackage/Database.hs b/Stackage/Database.hs
index 89728c6..a1da774 100644
--- a/Stackage/Database.hs
+++ b/Stackage/Database.hs
@@ -470,7 +470,7 @@ snapshotTitle :: Snapshot -> Text
 snapshotTitle s = prettyName (snapshotName s) (snapshotGhc s)
 
 prettyName :: SnapName -> Text -> Text
-prettyName name ghc = concat [prettyNameShort name, " (GHC ", ghc, ")"]
+prettyName name ghc = concat [prettyNameShort name, " (ghc-", ghc, ")"]
 
 prettyNameShort :: SnapName -> Text
 prettyNameShort name =