fix

1 files changed, 4 insertions, 2 deletions

diff --git a/fussy.lisp b/fussy.lisp
index 68ac9ea..1666283 100644
--- a/fussy.lisp
+++ b/fussy.lisp
@@ -531,7 +531,9 @@ h1 {
 (lzb:defendpoint* :get "/package/:pkg a-package:" ((page an-integer)) ()
   "The page endpoint for a theme package"
   (let ((themes
-          (themes-in-package pkg)))
+          (themes-in-package pkg))
+        (page
+          (or page 0)))
     (html:with-html-string
       (:doctype)
       (:html
@@ -550,7 +552,7 @@ h1 {
                     (:p (:a :href (theme-pkg-url pkg)
                             (theme-pkg-url pkg))))
               (when (< +themes-per-page+ (length themes))
-                (page-nav (or page 0) (1- (length themes))))
+                (page-nav page (1- (length themes))))
               (:div :class "container"
                     (dolist (theme (a:subseq* themes
                                               (* page +themes-per-page+)