diff --git a/ChangeLog.md b/ChangeLog.md
--- a/ChangeLog.md
+++ b/ChangeLog.md
@@ -5,6 +5,13 @@
 ## Unreleased changes
 
 
+## Version 0.7.1.0
+
+-   Be less strict with quoted identifiers/names in phylogenetic trees.
+-   Be less strict with FASTA identifiers.
+-   Update tooling (GHC 9.2.4).
+
+
 ## Version 0.7.0.1
 
 -   Random 1.2: Parallel functions now require an \`IOGenM\` random number
diff --git a/elynx-seq.cabal b/elynx-seq.cabal
--- a/elynx-seq.cabal
+++ b/elynx-seq.cabal
@@ -1,6 +1,6 @@
 cabal-version:      3.0
 name:               elynx-seq
-version:            0.7.0.1
+version:            0.7.1.0
 synopsis:           Handle molecular sequences
 description:
   Examine, modify, and simulate molecular sequences in a reproducible way. Please see the README on GitHub at <https://github.com/dschrempf/elynx>.
diff --git a/src/ELynx/Sequence/Divergence.hs b/src/ELynx/Sequence/Divergence.hs
--- a/src/ELynx/Sequence/Divergence.hs
+++ b/src/ELynx/Sequence/Divergence.hs
@@ -37,7 +37,7 @@
 
 divergence :: Sequence -> Sequence -> Either String (MU.Matrix Int)
 divergence s1 s2
-  | not (alphabet s1 == alphabet s2) = err "sequences have different alphabets"
+  | alphabet s1 /= alphabet s2 = err "sequences have different alphabets"
   | not (equalLength [s1, s2]) = err "sequences have different lengths"
   | otherwise = Right $ MU.create $ do
       m <- MU.new (n, n)
diff --git a/src/ELynx/Sequence/Import/Fasta.hs b/src/ELynx/Sequence/Import/Fasta.hs
--- a/src/ELynx/Sequence/Import/Fasta.hs
+++ b/src/ELynx/Sequence/Import/Fasta.hs
@@ -31,7 +31,7 @@
 import ELynx.Sequence.Sequence
 
 isSpecial :: Char -> Bool
-isSpecial w = w `elem` ['_', '|', '.', '-']
+isSpecial w = w `elem` ['_', '|', '.', '-', '/', '@']
 
 isHeader :: Char -> Bool
 isHeader w = AC.isAlpha_ascii w || AC.isDigit w || isSpecial w
diff --git a/src/ELynx/Sequence/Sequence.hs b/src/ELynx/Sequence/Sequence.hs
--- a/src/ELynx/Sequence/Sequence.hs
+++ b/src/ELynx/Sequence/Sequence.hs
@@ -64,7 +64,7 @@
   ( length,
   )
 
--- | For now, 'Name's are just 'BL.ByteString's.
+-- | 'Name's are just 'BL.ByteString's.
 type Name = BL.ByteString
 
 -- | The description of a sequence.