diff --git a/src/App/Fontifier.hs b/src/App/Fontifier.hs
index f5776e1..3e9b62b 100644
--- a/src/App/Fontifier.hs
+++ b/src/App/Fontifier.hs
@@ -218,7 +218,7 @@ isUnassigned :: String -> [(String,Slice,Bool)] -> Bool
 isUnassigned s = null . filter (\(t,_,_) -> t == s)
 
 markRead :: String -> [(String,Slice,Bool)] -> [(String,Slice,Bool)]
---markRead s a = 
+markRead s = map (\(v,p,b) -> (v,p,b || v == s))
 
 enterBlock :: [(String,Slice,Bool)] -> [(String,Slice,Bool)]
 enterBlock = map (\(v,s,b) -> ('*':v,s,b))