   (with-selected-frame frame
     (if window-system
         (preserving-default-font-size
-         (funcall *window-system-color-theme*))
-      (funcall *tty-color-theme*))))
+         (funcall window-system-color-theme))
+      (funcall tty-color-theme))))
 
 (defun reapply-color-themes ()
   (interactive)

(defvar *window-system-color-theme* 'color-theme-sanityinc-solarized-dark
  "Color theme to use in window-system frames")
(defvar *tty-color-theme* 'color-theme-terminal
  "Color theme to use in TTY frames")


(require 'color-theme-autoloads)


(defun light ()
  (interactive)
  (setq window-system-color-theme 'color-theme-sanityinc-solarized-light)
  (reapply-color-themes))

(defun dark ()
  (interactive)
  (setq window-system-color-theme 'color-theme-sanityinc-solarized-dark)
  (reapply-color-themes))

(set-variable 'color-theme-is-global nil)
