diff --git a/dotfiles/emacs.d/README.org b/dotfiles/emacs.d/README.org
index f22ea67f..12f9cf7d 100644
--- a/dotfiles/emacs.d/README.org
+++ b/dotfiles/emacs.d/README.org
@@ -4085,7 +4085,8 @@ Set the character used to represent spaces to ·, and the character used for tab
 (defun imalison:after-load-theme (&rest _args)
   (when (fboundp 'powerline-reset)
     (powerline-reset))
-  (set-face-background 'fringe (face-background 'default)))
+  (set-face-background 'fringe (face-background 'default))
+  (imalison:restore-ansi-term-color-vector))
 
 (when t
   (if
@@ -4094,6 +4095,16 @@ Set the character used to represent spaces to ·, and the character used for tab
         (imalison:after-load-theme))))
 
 (when (file-exists-p custom-after-file) (load custom-after-file))
+
+(defvar imalison:ansi-term-color-vector ansi-term-color-vector)
+
+(defun imalison:ansi-term-color-vector-broken? ()
+  (--some (or (eq it 'unspecified) (not (symbolp it)))
+          (append ansi-term-color-vector nil)))
+
+(defun imalison:restore-ansi-term-color-vector (&optional force)
+  (when (or force (imalison:ansi-term-color-vector-broken?))
+    (setq ansi-term-color-vector imalison:ansi-term-color-vector)))
 #+END_SRC
 * Frame Initialization
 #+BEGIN_SRC emacs-lisp