diff --git a/lisp/mitch-theme.el b/lisp/mitch-theme.el
index c14232c..c99392b 100644
--- a/lisp/mitch-theme.el
+++ b/lisp/mitch-theme.el
@@ -91,12 +91,13 @@
   (mitch-dark-red      "DarkRed")
   (mitch-mid-gray      "grey33")
   (mitch-mid-violet    "BlueViolet")
+  (mitch-mid-red       "red3")
   )
 
  ;; specifications for Emacs faces.
  (
   ;; (default (:background mitch-black :foreground mitch-light-yellow))
-  ;; (default (:background mitch-black :foreground mitch-white))
+  (default (:background mitch-black :foreground mitch-white))
   (default (:slant 'normal))
   (cursor (:inverse-video t))
   (highlight (:background mitch-visual-bg))
@@ -117,9 +118,9 @@
   (font-lock-constant-face (:foreground mitch-light-white :weight 'normal))
   (font-lock-string-face (:foreground mitch-light-blue :slant 'italic))
   (font-lock-builtin-face (:foreground mitch-light-white :weight 'bold))
-  (font-lock-keyword-face (:foreground mitch-yellow :weight 'normal))
+  (font-lock-keyword-face (:foreground mitch-mid-red :weight 'normal))
   (font-lock-type-face (:foreground mitch-light-red :weight 'bold))
-  (font-lock-function-name-face (:foreground mitch-red :weight 'bold))
+  (font-lock-function-name-face (:foreground mitch-red :weight 'normal))
   (font-lock-variable-name-face (:foreground mitch-light-cyan :weight 'normal))
   (font-lock-negation-char-face (:foreground mitch-visual-bg :weight 'bold))
   ;; other things