diff --git a/Handler/Profile.hs b/Handler/Profile.hs
index 0290334..d891b20 100644
--- a/Handler/Profile.hs
+++ b/Handler/Profile.hs
@@ -7,7 +7,7 @@ import qualified Data.Text as T
 getProfileR :: UserId -> Handler Html
 getProfileR ownerId = do
   owner <- runDB $ get ownerId
-  ownerName <- lift $ pure $ userName $ fromJust owner
+  ownerSlug <- lift $ pure $ userSlug $ fromJust owner
   userAlbs <- runDB $ selectList [AlbumOwner ==. ownerId] [Desc AlbumTitle]
   recentMedia <- (runDB $ selectList [MediumOwner ==. ownerId] [Desc MediumTime])
   msu <- lookupSession "userId"
diff --git a/templates/login.hamlet b/templates/login.hamlet
index fcf2b72..839f43f 100644
--- a/templates/login.hamlet
+++ b/templates/login.hamlet
@@ -13,6 +13,8 @@ $newline always
     <p id="progress">
     <input id="login" type="submit" value="Login">
 
+  <a href=@{ReactivateR}>Forgot your Password?
+
   <script src="/static/js/jquery-1.7.1.min.js" type="text/javascript">
   <script src="/static/js/jsSHA.js" type="text/javascript">
   <script src="/static/js/login.js" type="text/javascript">