diff --git a/.emacs.d/init.el b/.emacs.d/init.el
index 778744a..ab4bf4b 100644
--- a/.emacs.d/init.el
+++ b/.emacs.d/init.el
@@ -295,12 +295,19 @@
             #'(lambda () (setq-local show-trailing-whitespace t))))
 
 (use-package frame :demand
+  :bind ("C-x C-S-c" . delete-invisible-frames)
   :config
   (defun suspend-frame ()
     "If running in a secondary tty, call `suspend-tty', else nop"
     (interactive)
     (when (eq (framep (selected-frame)) t)
-        (suspend-tty))))
+      (suspend-tty)))
+  (defun delete-invisible-frames ()
+    "Delete all non-visible frames, to fix \"Attempt to delete a surrogate minibuffer frame\" issues"
+    (interactive)
+    (mapc (lambda (frame)
+            (unless (frame-visible-p frame) (delete-frame frame)))
+          (frame-list))))
 
 (use-package cc-styles
   :config