diff --git a/src/CryptoID.hs b/src/CryptoID.hs
index 6b69e0d5f..28fb616d1 100644
--- a/src/CryptoID.hs
+++ b/src/CryptoID.hs
@@ -39,7 +39,7 @@ instance PathPiece UUID where
 
 instance (CI.FoldCase s, PathPiece s) => PathPiece (CI s) where
   fromPathPiece = fmap CI.mk . fromPathPiece
-  toPathPiece = toPathPiece . CI.original
+  toPathPiece = toPathPiece . CI.foldedCase
 
 instance {-# OVERLAPS #-} PathMultiPiece FilePath where
   fromPathMultiPiece = Just . unpack . intercalate "/"
@@ -47,7 +47,7 @@ instance {-# OVERLAPS #-} PathMultiPiece FilePath where
   
 instance (CI.FoldCase s, PathMultiPiece s) => PathMultiPiece (CI s) where
   fromPathMultiPiece = fmap CI.mk . fromPathMultiPiece
-  toPathMultiPiece = toPathMultiPiece . CI.original
+  toPathMultiPiece = toPathMultiPiece . CI.foldedCase
 
 
 -- Generates CryptoUUID... and CryptoFileName... Datatypes