diff --git a/hpodder.cabal b/hpodder.cabal
--- a/hpodder.cabal
+++ b/hpodder.cabal
@@ -1,10 +1,10 @@
 Name: hpodder
-Version: 0.99.1
+Version: 0.99.5
 License: GPL
 Maintainer: John Goerzen <jgoerzen@complete.org>
 Author: John Goerzen
 Stability: Beta
-Copyright: Copyright (c) 2006 John Goerzen
+Copyright: Copyright (c) 2006-2007 John Goerzen
 license-file: COPYRIGHT
 extra-source-files: COPYING
 homepage: http://software.complete.org/hpodder
@@ -63,11 +63,11 @@
  beginning.  It should be exceedingly difficult to lose a podcast
  episode, even in the event of a power failure.
 Build-Depends: haskell98, network, unix, parsec, MissingH>=0.18.0,
- HDBC>=0.99.2, HDBC-sqlite3>=0.99.2, mtl, base, HaXml>=1.13.2, hslogger,
- ConfigFile, FilePath
+ HDBC>=1.1.0, HDBC-sqlite3>=1.1.0, mtl, base, HaXml>=1.13.2, hslogger,
+ ConfigFile, filepath
 
 Executable: hpodder
 Main-Is: hpodder.hs
-GHC-Options: -O2 -threaded
+GHC-Options: -O2
 Extensions: ExistentialQuantification, OverlappingInstances,
     UndecidableInstances
diff --git a/hpodder.hs b/hpodder.hs
--- a/hpodder.hs
+++ b/hpodder.hs
@@ -1,5 +1,5 @@
 {- hpodder component
-Copyright (C) 2006 John Goerzen <jgoerzen@complete.org>
+Copyright (C) 2006-2007 John Goerzen <jgoerzen@complete.org>
 
 This program is free software; you can redistribute it and/or modify
 it under the terms of the GNU General Public License as published by
@@ -18,7 +18,7 @@
 
 {- |
    Module     : Main
-   Copyright  : Copyright (C) 2006 John Goerzen
+   Copyright  : Copyright (C) 2006-2007 John Goerzen
    License    : GNU GPL, version 2 or above
 
    Maintainer : John Goerzen <jgoerzen@complete.org>
@@ -32,6 +32,8 @@
 import Config
 import DB
 import System.Log.Logger
+import System.Log.Handler.Simple
+import System.IO(stdout)
 import System.Console.GetOpt.Utils
 import System.Console.GetOpt
 import System.Environment
@@ -56,7 +58,10 @@
 
 worker args n commandargs =
     do when (lookup "help" args == Just "") $ usageerror ""
-       when (lookup "d" args == Just "") $ updateGlobalLogger "" (setLevel DEBUG)
+       when (lookup "d" args == Just "") 
+            (updateGlobalLogger "" (setLevel DEBUG))
+       handler <- streamHandler stdout DEBUG
+       updateGlobalLogger "" (setHandlers [handler])
        initDirs
        let commandname = head cmdargs
        case lookup commandname allCommands of