diff --git a/src/Handler/Package.hs b/src/Handler/Package.hs
index fad3c8f..76ac42c 100644
--- a/src/Handler/Package.hs
+++ b/src/Handler/Package.hs
@@ -157,7 +157,7 @@ getPackageSnapshotsR :: PackageNameP -> Handler Html
 getPackageSnapshotsR pn =
     track "Handler.Package.getPackageSnapshotsR" $ do
         cacheSeconds $ 60 * 60 * 24
-        snapshots <- getSnapshotsForPackage pn Nothing
+        snapshots <- getSnapshotsForPackage pn (Just 50)
         defaultLayout
             (do setTitle ("Packages for " >> toHtml pn)
                 $(combineStylesheets 'StaticR [css_font_awesome_min_css])