diff --git a/src/Data/Binary/Instances/CaseInsensitive.hs b/src/Data/Binary/Instances/CaseInsensitive.hs
index 37528b7..1d3d052 100644
--- a/src/Data/Binary/Instances/CaseInsensitive.hs
+++ b/src/Data/Binary/Instances/CaseInsensitive.hs
@@ -8,4 +8,4 @@ import qualified Data.CaseInsensitive as CI
 
 instance (CI.FoldCase a, Binary a) => Binary (CI.CI a) where
     get = fmap CI.mk get
-    put = put . CI.foldedCase
+    put = put . CI.original