diff --git a/ChangeLog.md b/ChangeLog.md
--- a/ChangeLog.md
+++ b/ChangeLog.md
@@ -1,3 +1,7 @@
+## 3.0.1.1
+
+* Fix root links
+
 ## 3.0.1
 
 * Better HEAD support [#354](https://github.com/yesodweb/wai/issues/354)
diff --git a/WaiAppStatic/Listing.hs b/WaiAppStatic/Listing.hs
--- a/WaiAppStatic/Listing.hs
+++ b/WaiAppStatic/Listing.hs
@@ -48,7 +48,7 @@
                                               , "a { text-decoration: none }"
                                               ]
              H.body $ do
-                 H.h1 $ showFolder $ filter (not . T.null . fromPiece) pieces
+                 H.h1 $ showFolder' $ filter (not . T.null . fromPiece) pieces
                  renderDirectoryContentsTable haskellSrc folderSrc fps''
   where
     image x = T.unpack $ T.concat [(relativeDirFromPieces pieces), ".hidden/", x, ".png"]
@@ -57,8 +57,12 @@
     showName "" = "root"
     showName x = x
 
+    -- Add a link to the root of the tree
+    showFolder' :: Pieces -> H.Html
+    showFolder' pieces  = showFolder (unsafeToPiece "root" : pieces)
+
     showFolder :: Pieces -> H.Html
-    showFolder [] = "/"
+    showFolder [] = "/" -- won't happen
     showFolder [x] = H.toHtml $ showName $ fromPiece x
     showFolder (x:xs) = do
         let href = concat $ replicate (length xs) "../" :: String
diff --git a/wai-app-static.cabal b/wai-app-static.cabal
--- a/wai-app-static.cabal
+++ b/wai-app-static.cabal
@@ -1,5 +1,5 @@
 name:            wai-app-static
-version:         3.0.1
+version:         3.0.1.1
 license:         MIT
 license-file:    LICENSE
 author:          Michael Snoyman <michael@snoyman.com>