diff --git a/lib/Phi/X11.hs b/lib/Phi/X11.hs
index dd75484..d272cb9 100644
--- a/lib/Phi/X11.hs
+++ b/lib/Phi/X11.hs
@@ -14,6 +14,7 @@ import Graphics.Rendering.Cairo
 import Control.Monad
 import Data.Maybe
 import Data.Bits
+import Data.Char
 
 import Control.Monad.State
 import Control.Monad.Reader
@@ -191,6 +192,8 @@ setPanelProperties panel = do
   atoms <- asks phiAtoms
   liftIO $ do
     storeName disp (panelWindow panel) "Phi"
+    changeProperty8 disp (panelWindow panel) (atom_NET_WM_NAME atoms) (atomUTF8_STRING atoms) propModeReplace $ map (fromIntegral . ord) "Phi"
+    
     changeProperty32 disp (panelWindow panel) (atom_NET_WM_WINDOW_TYPE atoms) aTOM propModeReplace [fromIntegral (atom_NET_WM_WINDOW_TYPE_DOCK atoms)]
     changeProperty32 disp (panelWindow panel) (atom_NET_WM_DESKTOP atoms) cARDINAL propModeReplace [0xFFFFFFFF]
     changeProperty32 disp (panelWindow panel) (atom_NET_WM_STATE atoms) aTOM propModeReplace [ fromIntegral (atom_NET_WM_STATE_SKIP_PAGER atoms)
diff --git a/lib/Phi/X11/AtomList.hs b/lib/Phi/X11/AtomList.hs
index 5965d69..258c89a 100644
--- a/lib/Phi/X11/AtomList.hs
+++ b/lib/Phi/X11/AtomList.hs
@@ -1,8 +1,8 @@
 module Phi.X11.AtomList ( atoms
                         ) where
 
-atoms = [ "_XROOTPMAP_ID"
-        , "_XROOTMAP_ID"
+atoms = [ "UTF8_STRING"
+        , "_NET_WM_NAME"
         , "_NET_WM_WINDOW_TYPE"
         , "_NET_WM_WINDOW_TYPE_DOCK"
         , "_NET_WM_DESKTOP"
@@ -11,7 +11,9 @@ atoms = [ "_XROOTPMAP_ID"
         , "_NET_WM_STATE_SKIP_TASKBAR"
         , "_NET_WM_STATE_STICKY"
         , "_NET_WM_STATE_BELOW"
-        , "_MOTIF_WM_HINTS"
         , "_NET_WM_STRUT"
         , "_NET_WM_STRUT_PARTIAL"
+        , "_MOTIF_WM_HINTS"
+        , "_XROOTPMAP_ID"
+        , "_XROOTMAP_ID"
         ]