diff --git a/Data/Encoding/KOI8R.hs b/Data/Encoding/KOI8R.hs
index 1a0ab39..f660401 100644
--- a/Data/Encoding/KOI8R.hs
+++ b/Data/Encoding/KOI8R.hs
@@ -22,7 +22,7 @@ koi8rArr :: UArray Word8 Char
 koi8rArr = listArray (128,255) koi8rList
 
 koi8rMap :: Map Char Word8
-koi8rMap = fromList (zip koi8rList [0..])
+koi8rMap = fromList (zip koi8rList [128..])
 
 koi8rList :: [Char]
 koi8rList =
diff --git a/Data/Encoding/KOI8U.hs b/Data/Encoding/KOI8U.hs
index fb4970d..36008bd 100644
--- a/Data/Encoding/KOI8U.hs
+++ b/Data/Encoding/KOI8U.hs
@@ -21,7 +21,7 @@ koi8uArr :: UArray Word8 Char
 koi8uArr = listArray (128,255) koi8uList
 
 koi8uMap :: Map Char Word8
-koi8uMap = fromList (zip koi8uList [0..])
+koi8uMap = fromList (zip koi8uList [128..])
 
 koi8uList :: [Char]
 koi8uList =