diff --git a/tekuti/page-helpers.scm b/tekuti/page-helpers.scm
index 6937bdd..be89ea1 100644
--- a/tekuti/page-helpers.scm
+++ b/tekuti/page-helpers.scm
@@ -38,7 +38,7 @@
   #:export (relurl rellink redirect post-url
             published-posts
             post-editing-form
-            sidebar-ul main-sidebar tag-cloud post-sidebar
+            sidebar-ul main-sidebar top-tags tag-cloud post-sidebar
             post-link admin-post-link admin-post-redirect
             show-post with-authentication
             atom-header atom-entry))
diff --git a/tekuti/page.scm b/tekuti/page.scm
index aec265e..372af01 100644
--- a/tekuti/page.scm
+++ b/tekuti/page.scm
@@ -251,7 +251,11 @@
               (else (lp (cdr posts))))))))
 
 (define (page-show-tags request index)
-  (not-implemented request index))
+  (rcons* request
+          'title (string-append "all tags -- " *title*)
+          'body `((div (@ (id "tag-cloud"))
+                       (h2 "all tags")
+                       ,@(tag-cloud (top-tags index 200))))))
 
 (define (page-show-tag request index tag)
   (let* ((tags (assq-ref index 'tags))