diff --git a/doom/config.el b/doom/config.el
index 07b20d1..f8e4cf4 100644
--- a/doom/config.el
+++ b/doom/config.el
@@ -140,7 +140,7 @@
         (setq $p1 (point))
         (skip-chars-forward "[:alpha:]")
         (setq $p2 (point))))
-    (let ((first-char-prop (get-char-code-property (char-after (point)) 'general-category)))
+    (let ((first-char-prop (get-char-code-property (char-after $p1) 'general-category)))
       (cond ((string= "Ll" first-char-prop) ; Lower case
              (upcase-region $p1 (+ $p1 1)))
             ((string= "Lu" first-char-prop) ; Upper case