diff --git a/src/ui-goodies.lisp b/src/ui-goodies.lisp
index 01d1087..e57a7a2 100644
--- a/src/ui-goodies.lisp
+++ b/src/ui-goodies.lisp
@@ -1252,9 +1252,8 @@ certificate).
 
 (defun gemlog-cancel-subscription ()
   (with-selected-gemlog-id (fields gemlog-id)
-    (when-let* ((entries   (db:gemlog-entries gemlog-id))
-                (event     (make-instance 'program-events:gemlog-cancel-subscription-event
-                                          :payload gemlog-id)))
+    (when-let* ((event (make-instance 'program-events:gemlog-cancel-subscription-event
+                                      :payload gemlog-id)))
       (with-blocking-notify-procedure ((format nil (_ "Canceling subscription for ~s") gemlog-id))
         (program-events:push-event event)))))