diff --git a/src/Data/String/ToString.hs b/src/Data/String/ToString.hs
index 491b015..0a2515a 100644
--- a/src/Data/String/ToString.hs
+++ b/src/Data/String/ToString.hs
@@ -4,7 +4,7 @@
   #-}
 module Data.String.ToString (ToString (..)) where
 
-import Data.CaseInsensitive (CI, foldedCase)
+import Data.CaseInsensitive (CI, original)
 import qualified Data.ByteString.Lazy.UTF8 as LBU
 import qualified Data.ByteString.UTF8      as SBU
 import qualified Data.Text                 as ST
@@ -29,4 +29,4 @@ instance ToString LT.Text where
   toString = LT.unpack
 
 instance ToString s => ToString (CI s) where
-  toString = toString . foldedCase
+  toString = toString . original