diff --git a/init.org b/init.org
index 4d12941..a02b5d4 100644
--- a/init.org
+++ b/init.org
@@ -761,20 +761,19 @@
 
    #+BEGIN_SRC emacs-lisp
    (let* ((default (face-attribute 'default :height))
-                  (size default))
+          (size default))
 
      (defun global-scale-default ()
        (interactive)
-       (setq size default)
-       (global-scale-internal size))
+       (global-scale-internal (setq size default)))
 
      (defun global-scale-up ()
        (interactive)
-       (global-scale-internal (incf size 20)))
+       (global-scale-internal (setq size (+ size 20))))
 
      (defun global-scale-down ()
        (interactive)
-       (global-scale-internal (decf size 20)))
+       (global-scale-internal (setq size (- size 20))))
 
      (defun global-scale-internal (arg)
        (set-face-attribute 'default (selected-frame) :height arg)