diff --git a/Presentation/Yeamer.hs b/Presentation/Yeamer.hs
--- a/Presentation/Yeamer.hs
+++ b/Presentation/Yeamer.hs
@@ -758,7 +758,7 @@
                  return (Nothing, False)
                else return (resKey, rHasContent)
             (Nothing, ('1':prog):path'', _) -> do
-              (Just k, _) <- go' (crumbh, choiceName, crumbp<>"0") [] def
+              (~(Just k), _) <- go' (crumbh, choiceName, crumbp<>"0") [] def
               go' (crumbh, choiceName, crumbp<>"1") (prog:path'') $ opt k
             (_, [[]], False) -> do
               (key', _) <- go' (crumbh,choiceName,crumbp<>"0") [[]] def
diff --git a/yeamer.cabal b/yeamer.cabal
--- a/yeamer.cabal
+++ b/yeamer.cabal
@@ -2,7 +2,7 @@
 -- documentation, see http://haskell.org/cabal/users-guide/
 
 name:                yeamer
-version:             0.1.0.2
+version:             0.1.0.3
 synopsis:            Yesod-based server for interactive presentation slides
 -- description:         
 homepage:            https://github.com/leftaroundabout/yeamer