diff --git a/src/Utils/Frontend/Modal.hs b/src/Utils/Frontend/Modal.hs
index f5ddbf67a..94948aeba 100644
--- a/src/Utils/Frontend/Modal.hs
+++ b/src/Utils/Frontend/Modal.hs
@@ -53,8 +53,8 @@ msgModal modalTrigger' modalContent = do
     --
     -- See https://www.w3.org/TR/CSS21/syndata.html#value-def-identifier
     randomIdentifier = fmap pack . evalRandTIO $ do
-      prefix <- uniform $ ['a'..'z'] ++ ['A'..'Z'] ++ ['0'..'9']
-      suffix <- replicateM 21 . uniform $ ['a'..'z'] ++ ['A'..'Z']
+      prefix <- uniform $ ['a'..'z'] ++ ['A'..'Z']
+      suffix <- replicateM 21 . uniform $ ['a'..'z'] ++ ['A'..'Z'] ++ ['0'..'9']
       return $ prefix : suffix
   modalTriggerId <- Just <$> randomIdentifier
   modalId <- Just <$> randomIdentifier