diff --git a/macports-installed.el b/macports-installed.el
index 4070dd9..9cd2437 100644
--- a/macports-installed.el
+++ b/macports-installed.el
@@ -380,8 +380,8 @@ Acts within the region when active, otherwise on entire buffer."
     (goto-char (point-min))
     (let ((inhibit-read-only t))
       (while (not (eobp))
-        (when-let ((tag (gethash (tabulated-list-get-id) tags)))
-          (tabulated-list-put-tag tag))
+        (let ((tag (gethash (tabulated-list-get-id) tags)))
+          (when tag (tabulated-list-put-tag tag)))
         (forward-line)))))
 
 (defun macports-installed-refresh ()