diff --git a/bin/xmobar.hs b/bin/xmobar.hs
index b353151..d802c28 100644
--- a/bin/xmobar.hs
+++ b/bin/xmobar.hs
@@ -432,7 +432,7 @@ btCmd fontify =
     { csAlias = btAlias
     , csRunnable =
         Run $
-          Bluetooth (fontify' "\x0f00af" "+", fontify' "\x0f00af" "-") colors
+          Bluetooth (fontify' "\x0f00b1" "+", fontify' "\x0f00af" "-") colors
     }
   where
     fontify' i = fontify IconLarge i . T.append "BT"
@@ -473,7 +473,7 @@ ckCmd :: Fontifier -> CmdSpec
 ckCmd fontify =
   CmdSpec
     { csAlias = ckAlias
-    , csRunnable = Run $ ClevoKeyboard $ fontify IconLarge "\x0f0313" "KB: "
+    , csRunnable = Run $ ClevoKeyboard $ fontify IconSmall "\xf11c" "KB: "
     }
 
 ssCmd :: Fontifier -> CmdSpec