1 files changed, 1 insertions, 1 deletions

diff --git a/src/Main.hs b/src/Main.hs
index b056aff..bddc85e 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -287,7 +287,7 @@ factionSeqVal = withArg $ \qFaction -> use gEntities >>= mapM_ (entitySeqVal') .
 entitySeqVal' :: EntityIdentifier -> Sh GameState ()
 entitySeqVal' ident = void . runMaybeT $ do
   entity <- MaybeT $ preuse (gEntities . ix ident)
-  sVal <- MaybeT . return $ preview (eStats . sSeqVal) entity
+  let sVal = fromMaybe (val ignored ["Sequenzwert"] False) $ preview (eStats . sSeqVal) entity
   name <- toName ident
   round <- use gRound
   (newEntity, sNum) <- evalFormula [name] entity sVal