1 files changed, 3 insertions, 2 deletions
diff --git a/reploy.hs b/reploy.hs
index 13dff27..78574d4 100644
--- a/reploy.hs
+++ b/reploy.hs
@@ -190,8 +190,9 @@ pageName' :: Site (FilePath -> String)
 pageName' = do
   ps <- use pages
   pure $ \mnt' ->
-    just ("template looks for undefined page name : " ++ mnt')
-      $  ps M.!? unAbsolute mnt' >>= (^? pageMeta . key "template" . _String . to T.unpack)
+    just ("lookup for undefined page name : " ++ mnt')
+      $ ps M.!? unAbsolute mnt'
+          >>= (^? pageMeta . key "name" . _String . to T.unpack)
 
 -- | Like `Mu.substitute` but writes (and eventually should throw) stuff on errors
 checkedSubstitute :: Mu.Template -> MT.Value -> IO T.Text