diff --git a/src/Model/Types.hs b/src/Model/Types.hs
index 57f9b7bb7..0e56bc058 100644
--- a/src/Model/Types.hs
+++ b/src/Model/Types.hs
@@ -688,7 +688,7 @@ _PseudonymText = prism' tToWords tFromWords . _PseudonymWords
 
 pseudonymWords :: Fold Text PseudonymWord
 pseudonymWords = folding
-  $ \(CI.mk -> input) -> map (view _2) . unsafeHead . groupBy ((==) `on` view _1) . sortBy (comparing $ view _1) . filter ((<= distanceCutoff) . view _1) $ map (distance input &&& id) pseudonymWordlist
+  $ \(CI.mk -> input) -> map (view _2) . fromMaybe [] . listToMaybe . groupBy ((==) `on` view _1) . sortBy (comparing $ view _1) . filter ((<= distanceCutoff) . view _1) $ map (distance input &&& id) pseudonymWordlist
   where
     distance = damerauLevenshtein `on` CI.foldedCase
     -- | Arbitrary cutoff point, for reference: ispell cuts off at 1