diff --git a/src/HSFM/GUI/Gtk/Data.hs b/src/HSFM/GUI/Gtk/Data.hs
index 37838a7..8d8bc6f 100644
--- a/src/HSFM/GUI/Gtk/Data.hs
+++ b/src/HSFM/GUI/Gtk/Data.hs
@@ -112,7 +112,7 @@ data FilePropertyGrid = MkFilePropertyGrid {
   , fpropTsEntry        :: !Entry
   , fpropModEntry       :: !Entry
   , fpropAcEntry        :: !Entry
-  , fpropFTEntry  :: !Entry
+  , fpropFTEntry        :: !Entry
   , fpropPermEntry      :: !Entry
   , fpropLDEntry        :: !Entry
 }
diff --git a/src/HSFM/GUI/Gtk/Dialogs.hs b/src/HSFM/GUI/Gtk/Dialogs.hs
index c425f1e..07f372c 100644
--- a/src/HSFM/GUI/Gtk/Dialogs.hs
+++ b/src/HSFM/GUI/Gtk/Dialogs.hs
@@ -268,7 +268,8 @@ showFilePropertyDialog [item] mygui _ = do
   entrySetText (fpropModEntry fprop') (packModTime item)
   entrySetText (fpropAcEntry fprop')  (packAccessTime item)
   entrySetText (fpropFTEntry fprop')  (packFileType item)
-  entrySetText (fpropPermEntry fprop') (tail $ packPermissions item)
+  entrySetText (fpropPermEntry fprop')
+               (tail $ packPermissions item) -- throw away the filetype part
   case packLinkDestination item of
     (Just dest) -> do
       widgetSetSensitive (fpropLDEntry fprop') True