diff --git a/src/ui-goodies.lisp b/src/ui-goodies.lisp
index 886e31c..75530ac 100644
--- a/src/ui-goodies.lisp
+++ b/src/ui-goodies.lisp
@@ -2304,11 +2304,11 @@ there."
                       choices)))
            (find-poll-id ()
              (when-let* ((fields              (line-oriented-window:selected-row-fields *thread-window*))
-                         (status-id           (db:row-message-status-id fields))
-                         (reblogged-status-id (db:row-message-reblog-id fields))
-                         (poll                (or (db:find-poll-bound-to-status status-id)
-                                                  (db:find-poll-bound-to-status reblogged-status-id))))
-               (db:row-id poll)))
+                         (status-id           (db:row-message-status-id fields)))
+                        (let* ((reblogged-status-id (db:row-message-reblog-id fields))
+                               (poll                (or (db:find-poll-bound-to-status status-id)
+                                                        (db:find-poll-bound-to-status reblogged-status-id))))
+                          (db:row-id poll))))
            (on-input-complete (choices)
              (let ((choices-list (split-words choices)))
                (if (or (null choices-list)