diff --git a/arbtt.cabal b/arbtt.cabal
--- a/arbtt.cabal
+++ b/arbtt.cabal
@@ -1,5 +1,5 @@
 name:               arbtt
-version:            0.6.1
+version:            0.6.2
 license:            GPL
 license-file:       LICENSE
 category:           Desktop
@@ -30,7 +30,7 @@
     main-is:            capture-main.hs
     hs-source-dirs:     src
     build-depends:
-        base == 4.*, filepath, directory, mtl, time, utf8-string, 
+        base == 4.5.*, filepath, directory, mtl, time, utf8-string, 
         bytestring, binary, deepseq
     other-modules:
         Data
@@ -40,6 +40,8 @@
         Capture
         TimeLog
         UpgradeLog1
+    
+    ghc-options: -rtsopts
 
     if os(windows) 
         extra-libraries: psapi
@@ -75,6 +77,7 @@
         Stats
         Text.ParserCombinators.Parsec.ExprFail
         Text.Regex.PCRE.Light.Text
+    ghc-options: -rtsopts
     if os(windows) 
         cpp-options:    -DWIN32
     else
@@ -92,6 +95,7 @@
         Data.Binary.StringRef
         CommonStartup
         TimeLog
+    ghc-options: -rtsopts
     if os(windows) 
         cpp-options:    -DWIN32
     else
@@ -109,6 +113,7 @@
         Data.Binary.StringRef
         CommonStartup
         TimeLog
+    ghc-options: -rtsopts
     if os(windows) 
         cpp-options:    -DWIN32
     else
@@ -126,6 +131,7 @@
         Data.Binary.StringRef
         CommonStartup
         TimeLog
+    ghc-options: -rtsopts
     if os(windows) 
         cpp-options:    -DWIN32
     else
diff --git a/categorize.cfg b/categorize.cfg
--- a/categorize.cfg
+++ b/categorize.cfg
@@ -54,6 +54,9 @@
 current window $title =~ m!LoopSubgroupPaper.pdf!
   ==> tag Project:DA,
 
+current window $title =~ m!TDM!
+  ==> tag Project:TDM,
+
 ( format $date >= "2010-08-01" &&
   format $date <= "2010-12-01" &&
   ( current window $program == "sun-awt-X11-XFramePeer" &&
diff --git a/doc/arbtt.xml b/doc/arbtt.xml
--- a/doc/arbtt.xml
+++ b/doc/arbtt.xml
@@ -768,7 +768,7 @@
         </varlistentry>
         <varlistentry>
         <term><option>-r</option> <replaceable>RATE</replaceable></term>
-        <term><option>--rate</option> <replaceable>RATE</replaceable></term>
+        <term><option>--sample-rate</option> <replaceable>RATE</replaceable></term>
         <listitem><simpara>sets the sample rate in seconds (default: 60)</simpara></listitem>
         </varlistentry>
         <varlistentry>
diff --git a/src/Capture/X11.hs b/src/Capture/X11.hs
--- a/src/Capture/X11.hs
+++ b/src/Capture/X11.hs
@@ -18,6 +18,8 @@
 setupCapture = do
         unless compiledWithXScreenSaver $
                 hPutStrLn stderr "arbtt [Warning]: X11 was compiled without support for XScreenSaver"
+        loc <- supportsLocale
+        unless loc $ hPutStrLn stderr "arbtt [Warning]: locale unsupported"
         dpy <- openDisplay ""
         xSetErrorHandler
         let rwin = defaultRootWindow dpy
diff --git a/src/Data.hs b/src/Data.hs
--- a/src/Data.hs
+++ b/src/Data.hs
@@ -30,16 +30,6 @@
 instance NFData a => NFData (TimeLogEntry a) where
     rnf (TimeLogEntry a b c) = a `deepseq` b `deepseq` c `deepseq` ()
 
-instance NFData UTCTime where
-    rnf (UTCTime a b) = a `deepseq` b `deepseq` ()
-    
-instance NFData Day where
-    rnf d = rnf (toModifiedJulianDay d)
-
-instance NFData DiffTime where
-    rnf d = rnf (toRational d)
-    
-        
 data CaptureData = CaptureData
         { cWindows :: [ (Bool, Text, Text) ]
                 -- ^ Active window, window title, programm name