diff --git a/Clckwrks/Page/Atom.hs b/Clckwrks/Page/Atom.hs
--- a/Clckwrks/Page/Atom.hs
+++ b/Clckwrks/Page/Atom.hs
@@ -2,9 +2,10 @@
 module Clckwrks.Page.Atom where
 
 import Control.Monad.Trans     (lift, liftIO)
+import Clckwrks.Authenticate.API (Username(..), getUsername)
 import Clckwrks.Monad          (Clck, Content(..), query, withAbs)
 import Clckwrks.Page.Acid
-import Clckwrks.Page.Monad     (PageM, markupToContent)
+import Clckwrks.Page.Monad     (PageM, markupToContent, clckT2PageT)
 import Clckwrks.Page.Types
 import Clckwrks.ProfileData.Acid
 import Clckwrks.Page.URL
@@ -67,10 +68,10 @@
     where
       author :: XMLGenT PageM XML
       author =
-          do mu <- query $ UsernameForId pageAuthor
+          do mu <- lift $ clckT2PageT ((getUsername pageAuthor) :: Clck () (Maybe Username))
              case mu of
                Nothing -> return $ cdata ""
-               (Just n)
+               (Just (Username n))
                    | Text.null n ->
                        return $ cdata ""
                    | otherwise -> [hsx|
diff --git a/clckwrks-plugin-page.cabal b/clckwrks-plugin-page.cabal
--- a/clckwrks-plugin-page.cabal
+++ b/clckwrks-plugin-page.cabal
@@ -1,5 +1,5 @@
 name:                clckwrks-plugin-page
-version:             0.4.3.16
+version:             0.4.3.18
 synopsis:            support for CMS/Blogging in clckwrks
 description:         This provides two similar concepts Pages and Posts. Both allow
                      you to create page content by editting pages in the browser. A Post
@@ -49,7 +49,7 @@
                        acid-state             >= 0.12 && < 0.16,
                        aeson                  (>= 0.4  && < 0.10) || (>= 0.11 && < 1.5),
                        attoparsec             >= 0.10 && < 0.14,
-                       clckwrks               >= 0.24 && < 0.25,
+                       clckwrks               >= 0.25 && < 0.26,
                        containers             >= 0.4  && < 0.7,
                        directory              >= 1.1  && < 1.4,
                        filepath               >= 1.2  && < 1.5,