diff --git a/src/gui/client/certificates-window.lisp b/src/gui/client/certificates-window.lisp
index f6fe866..f2fc9f0 100644
--- a/src/gui/client/certificates-window.lisp
+++ b/src/gui/client/certificates-window.lisp
@@ -45,14 +45,15 @@
 (defun delete-certificates-clsr (certificate-frame)
   (lambda ()
     (a:when-let* ((selections (gui:treeview-get-selection (gui-goodies:tree certificate-frame))))
-      (loop for selection in selections do
-        (let ((url (gui:id selection)))
-          (ev:with-enqueued-process-and-unblock ()
-            (comm:make-request :gemini-delete-client-certificate
-                               1
-                               url))
-          (let ((new-rows (all-rows)))
-            (resync-rows certificate-frame new-rows)))))))
+      (when (gui-goodies:confirm-deletion certificate-frame (length selections))
+        (loop for selection in selections do
+          (let ((url (gui:id selection)))
+            (ev:with-enqueued-process-and-unblock ()
+              (comm:make-request :gemini-delete-client-certificate
+                                 1
+                                 url))
+            (let ((new-rows (all-rows)))
+              (resync-rows certificate-frame new-rows))))))))
 
 (defun contextual-menu-clrs (treeview-widget)
   (labels ((row-values ()