diff --git a/snap-core.cabal b/snap-core.cabal
--- a/snap-core.cabal
+++ b/snap-core.cabal
@@ -1,5 +1,5 @@
 name:           snap-core
-version:        1.0.1.0
+version:        1.0.1.1
 synopsis:       Snap: A Haskell Web Framework (core interfaces and types)
 
 description:
@@ -145,7 +145,7 @@
     transformers-base         >= 0.4     && < 0.5,
     unix-compat               >= 0.3     && < 0.5,
     unordered-containers      >= 0.1.4.3 && < 0.3,
-    vector                    >= 0.6     && < 0.12
+    vector                    >= 0.6     && < 0.13
 
   other-extensions:
     BangPatterns,
diff --git a/src/Snap/Internal/Parsing.hs b/src/Snap/Internal/Parsing.hs
--- a/src/Snap/Internal/Parsing.hs
+++ b/src/Snap/Internal/Parsing.hs
@@ -6,12 +6,12 @@
 ------------------------------------------------------------------------------
 module Snap.Internal.Parsing where
 ------------------------------------------------------------------------------
-import           Control.Applicative              (Alternative ((<|>)), Applicative ((*>), (<*), pure), liftA2, (<$>))
+import           Control.Applicative              (Alternative ((<|>)), Applicative (pure, (*>), (<*)), liftA2, (<$>))
 import           Control.Arrow                    (first, second)
 import           Control.Monad                    (Monad (return), MonadPlus (mzero), liftM, when)
 import           Data.Attoparsec.ByteString.Char8 (IResult (Done, Fail, Partial), Parser, Result, anyChar, char, choice, decimal, endOfInput, feed, inClass, isDigit, isSpace, letter_ascii, many', match, option, parse, satisfy, skipSpace, skipWhile, string, take, takeTill, takeWhile)
 import qualified Data.Attoparsec.ByteString.Char8 as AP
-import           Data.Bits                        (Bits ((.&.), (.|.), unsafeShiftL))
+import           Data.Bits                        (Bits (unsafeShiftL, (.&.), (.|.)))
 import           Data.ByteString.Builder          (Builder, byteString, char8, toLazyByteString, word8)
 import           Data.ByteString.Char8            (ByteString)
 import qualified Data.ByteString.Char8            as S
@@ -86,8 +86,19 @@
 
 
 ------------------------------------------------------------------------------
+toTableList :: (Char -> Bool) -> [Char]
+toTableList f = l
+  where
+    g c = c /= '-' && f c
+    !l1 = filter g $ map w2c [0..255]
+    !l0 = if f '-' then ['-'] else []
+    !l  = l0 ++ l1
+{-# INLINE toTableList #-}
+
+
+------------------------------------------------------------------------------
 toTable :: (Char -> Bool) -> (Char -> Bool)
-toTable f = inClass $ filter f $ map w2c [0..255]
+toTable = inClass . toTableList
 {-# INLINE toTable #-}