diff --git a/Codec/MIME/Parse.hs b/Codec/MIME/Parse.hs
--- a/Codec/MIME/Parse.hs
+++ b/Codec/MIME/Parse.hs
@@ -30,6 +30,14 @@
 import Data.List
 import Debug.Trace ( trace )
 
+enableTrace :: Bool
+enableTrace = False
+
+doTrace :: String -> b -> b
+doTrace | enableTrace = trace
+        | otherwise   = \_ x -> x
+
+
 parseMIMEBody :: [(String,String)] -> String -> MIMEValue
 parseMIMEBody headers_in body = result { mime_val_headers = headers }
   where
@@ -117,7 +125,7 @@
 parseMultipart :: Type -> String -> (MIMEValue, String)
 parseMultipart mty body =
   case lookupField "boundary" (mimeParams mty) of
-    Nothing -> trace ("Multipart mime type, " ++ showType mty ++
+    Nothing -> doTrace ("Multipart mime type, " ++ showType mty ++
       ", has no required boundary parameter. Defaulting to text/plain") $
       (nullMIMEValue{ mime_val_type = defaultType
                     , mime_val_disp = Nothing
@@ -169,7 +177,7 @@
                Just Type { mimeType = toType maj as
                          , mimeParams = parseParams (dropWhile isHSpace bs)
                          }
-       _ -> trace ("unable to parse content-type: " ++ show str) $ Nothing
+       _ -> doTrace ("unable to parse content-type: " ++ show str) $ Nothing
  where
   toType a b = case lookupField (map toLower a) mediaTypes of
                  Just ctor -> ctor b
@@ -191,7 +199,7 @@
        where
         nm = map toLower nm_raw
 
-parseParams cs = trace ("Codec.MIME.Parse.parseParams: curious param value -- " ++ show cs) []
+parseParams cs = doTrace ("Codec.MIME.Parse.parseParams: curious param value -- " ++ show cs) []
 
 mediaTypes :: [(String, String -> MIMEType)]
 mediaTypes =
diff --git a/mime.cabal b/mime.cabal
--- a/mime.cabal
+++ b/mime.cabal
@@ -1,5 +1,5 @@
 name:               mime
-version:            0.3.3.2
+version:            0.3.4
 synopsis:           Working with MIME types.
 description:        Working with MIME types.
 category:           Codec