diff --git a/Main.hs b/Main.hs
--- a/Main.hs
+++ b/Main.hs
@@ -77,7 +77,7 @@
                        &= help "Also show small (<1M && <100 files) entries"
     -- , dirsOnly = def &= typ "BOOL"
     --                  &= help "Show directories only"
-    , depth      = def &= typ "INT" &= opt (1 :: Int)
+    , depth      = def &= typ "INT"
                        &= help "Report entries to a depth of INT (default: 1)"
     , dirs       = def &= args &= typ "DIRS..." } &=
     summary sizesSummary &=
@@ -110,7 +110,7 @@
   opts     <- withArgs (if L.null mainArgs then [] else mainArgs)
                       (cmdArgs sizesOpts)
   _        <- GHC.Conc.setNumCapabilities $ case jobs opts of 0 -> 2; x -> x
-  runSizes opts
+  runSizes $ case depth opts of 0 -> opts { depth = 1 }; _ -> opts
 
 runSizes :: SizesOpts -> IO ()
 runSizes opts = do
diff --git a/sizes.cabal b/sizes.cabal
--- a/sizes.cabal
+++ b/sizes.cabal
@@ -1,6 +1,6 @@
 Name: sizes
 
-Version:  2.0.7
+Version:  2.1.0
 Synopsis: Recursively show space (size and i-nodes) used in subdirectories
 
 Description: Recursively show space (size and i-nodes) used in subdirectories