diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,3 +1,7 @@
+## FLAC 0.1.1
+
+* Added support for `DiscTotal` Vorbis comment field.
+
 ## FLAC 0.1.0
 
 * Initial release.
diff --git a/Codec/Audio/FLAC/Metadata.hs b/Codec/Audio/FLAC/Metadata.hs
--- a/Codec/Audio/FLAC/Metadata.hs
+++ b/Codec/Audio/FLAC/Metadata.hs
@@ -588,6 +588,7 @@
   | TrackTotal         -- ^ Total number of tracks in the collection this
                        -- track belongs to.
   | DiscNumber         -- ^ Disc number in a multi-disc release.
+  | DiscTotal          -- ^ Total number of discs in a multi-disc release.
   | Artist             -- ^ The artist generally considered responsible for
                        -- the work. In popular music this is usually the
                        -- performing band or singer. For classical music it
diff --git a/flac.cabal b/flac.cabal
--- a/flac.cabal
+++ b/flac.cabal
@@ -31,7 +31,7 @@
 -- POSSIBILITY OF SUCH DAMAGE.
 
 name:                 flac
-version:              0.1.0
+version:              0.1.1
 cabal-version:        >= 1.10
 license:              BSD3
 license-file:         LICENSE.md
@@ -113,7 +113,7 @@
                     , data-default-class
                     , directory        >= 1.2.2  && < 1.3
                     , filepath         >= 1.2    && < 1.5
-                    , flac             >= 0.1.0
+                    , flac             >= 0.1.1
                     , hspec            >= 2.0    && < 3.0
                     , temporary        >= 1.1    && < 1.3
                     , transformers     >= 0.4    && < 0.6
diff --git a/tests/Codec/Audio/FLAC/MetadataSpec.hs b/tests/Codec/Audio/FLAC/MetadataSpec.hs
--- a/tests/Codec/Audio/FLAC/MetadataSpec.hs
+++ b/tests/Codec/Audio/FLAC/MetadataSpec.hs
@@ -46,6 +46,7 @@
 import Data.List.NonEmpty (NonEmpty (..))
 import Data.Vector (Vector)
 import System.Directory
+import System.IO
 import System.IO.Temp (withSystemTempFile)
 import Test.Hspec hiding (shouldBe, shouldReturn)
 import qualified Codec.Audio.FLAC.Metadata as Flac
@@ -411,7 +412,8 @@
 -- finishes.
 
 withSandbox :: ActionWith FilePath -> IO ()
-withSandbox action = withSystemTempFile "sample.flac" $ \path _ -> do
+withSandbox action = withSystemTempFile "sample.flac" $ \path h -> do
+  hClose h
   copyFile "audio-samples/sample.flac" path
   action path