diff --git a/etc/init.lisp b/etc/init.lisp
index 7043cf9..dae716a 100644
--- a/etc/init.lisp
+++ b/etc/init.lisp
@@ -256,6 +256,14 @@
 
 ;; thread window keymap
 
+(defun print-post-id ()
+  "Print the post's ID to the command window"
+  (a:when-let* ((selected-row (line-oriented-window:selected-row-fields specials:*thread-window*))
+                (status-id    (db:row-message-status-id selected-row)))
+    (ui:info-message (format nil "ID: ~a" status-id))))
+
+(define-key "I"         #'print-post-id                             *thread-keymap*)
+
 (define-key "up"        #'thread-go-up                                *thread-keymap*)
 
 (define-key "down"      #'thread-go-down                              *thread-keymap*)
diff --git a/modules/delete-by-regex.lisp b/modules/delete-by-regex.lisp
index fdfa9de..34c6dd4 100644
--- a/modules/delete-by-regex.lisp
+++ b/modules/delete-by-regex.lisp
@@ -17,7 +17,7 @@
 (in-package :modules)
 
 (defun mark-message-deleted-by-regex (regex)
-  (when-let ((scanner (ignore-errors (create-scanner regex))))
+  (a:when-let ((scanner (ignore-errors (create-scanner regex))))
     (with-accessors ((row-selected-index row-selected-index)
                      (timeline-type      thread-window:timeline-type)
                      (timeline-folder    thread-window:timeline-folder)) *thread-window*
diff --git a/src/modules.lisp b/src/modules.lisp
index 9824286..2712ac6 100644
--- a/src/modules.lisp
+++ b/src/modules.lisp
@@ -18,9 +18,9 @@
 (in-package :modules)
 
 (defun load-sys-module (path &key (not-found-signal-error t))
-  (when-let ((file (if not-found-signal-error
-                       (get-sys-config-file path)
-                       (ignore-errors (get-sys-config-file path)))))
+  (a:when-let ((file (if not-found-signal-error
+                         (get-sys-config-file path)
+                         (ignore-errors (get-sys-config-file path)))))
     (load file :verbose nil :print nil)))
 
 (defun load-module (path &key (not-found-signal-error t))
diff --git a/src/package.lisp b/src/package.lisp
index b1ea240..433f5b9 100644
--- a/src/package.lisp
+++ b/src/package.lisp
@@ -2973,7 +2973,6 @@
 (defpackage :modules
   (:use
    :cl
-   :alexandria
    :cl-ppcre
    :config
    :constants
@@ -2986,6 +2985,7 @@
    :keybindings
    :program-events
    :ui-goodies)
+  (:local-nicknames (:a :alexandria))
   (:shadowing-import-from :resources-utils :init)
   (:export
    :load-sys-module