Check result of find in mark-aliases.

Keys might not exist if aliases have been deleted;
i.e. deleted aliases cannot be check-boxed.

1 files changed, 1 insertions, 1 deletions

diff --git a/aliases.txr b/aliases.txr
index da16b16..f667918 100644
--- a/aliases.txr
+++ b/aliases.txr
@@ -28,7 +28,7 @@
 @;
 @(define mark-aliases (aliases selected))
 @  (do (each ((key selected))
-         (let ((a (find key aliases)))
+         (iflet ((a (find key aliases)))
            (set a.selected t))))
 @(end)
 @;