1 files changed, 3 insertions, 2 deletions

diff --git a/src/Sequence/Contact/Tests.hs b/src/Sequence/Contact/Tests.hs
index 8665186..c100ce9 100644
--- a/src/Sequence/Contact/Tests.hs
+++ b/src/Sequence/Contact/Tests.hs
@@ -40,7 +40,7 @@ tests = do
 
   views sExtraSkills (baseTests <>)
   where
-    test k v = maybe mempty (Map.singleton k) <$> preview v
+    test k v = maybe mempty (Map.singleton k) <$> previews v (set (mapped . tName) k)
 
     skillTest = to (\x -> flip (set tBaseDifficulty) def <$> x)
     attributeTest = to (\x -> flip (set tBaseDifficulty) def . (* 10) <$> x) 
@@ -61,10 +61,11 @@ instance Argument (FormulaM Stats Test) GameState where
 enactTest :: Test -> FormulaM Stats TestResult
 enactTest rawTest = do
   test <- foldM (&) rawTest =<< toListOf (ctx . sModifiers . folded . _Modifier . _2) <$> ask
+  manualMod <- val ignored [CI.original (rawTest ^. tName), "Modifier"] False
   let
     critFailureBar = 95 - test^.tCritFailureMod
     critSuccessBar = 5 + test^.tCritSuccessMod
-    bar = test^.tBaseDifficulty + test^.tMod
+    bar = test^.tBaseDifficulty + test^.tMod + manualMod
     toResult pw = (toResult' pw) pw (abs $ bar - pw)
     toResult' pw
       | bar > critSuccessBar