diff --git a/arith-encode.cabal b/arith-encode.cabal
--- a/arith-encode.cabal
+++ b/arith-encode.cabal
@@ -1,6 +1,6 @@
 name: arith-encode
-version: 1.0.1
-cabal-version: >=1.16
+version: 1.0.2
+cabal-version: 1.16
 license: BSD3
 license-file: LICENSE
 copyright: Copyright (c) 2014 Eric McCorkle.  All rights reserved.
@@ -21,7 +21,7 @@
   enumeration testing.
 category: Data, Serialization, Test, Testing
 build-type: Simple
-tested-with: GHC==8.8.1, GHC==8.6.5, GHC==8.4.4, GHC==8.2.2, GHC==8.0.2
+tested-with: GHC==8.8.2, GHC==8.6.5, GHC==8.4.4, GHC==8.2.2, GHC==8.0.2
 
 source-repository head
   type: git
@@ -37,12 +37,12 @@
   default-language: Haskell2010
   build-depends:
     base >=4.9 && <5,
-    arithmoi >= 0.5 && <0.11,
     array,
     binary,
     containers,
     hashable,
     integer-logarithms,
+    integer-roots,
     unordered-containers
 
 test-suite UnitTest
diff --git a/src/Data/ArithEncode/Basic.hs b/src/Data/ArithEncode/Basic.hs
--- a/src/Data/ArithEncode/Basic.hs
+++ b/src/Data/ArithEncode/Basic.hs
@@ -136,10 +136,9 @@
 import Data.HashSet(HashSet)
 import Data.Typeable
 import Prelude hiding (elem, either, seq)
-import Math.NumberTheory.Powers.Squares
 import Math.NumberTheory.Logarithms
+import Math.NumberTheory.Roots
 import Data.Word
---import Debug.Trace
 
 import qualified Data.Array.IArray as Array
 import qualified Data.Either as Either
@@ -680,7 +679,7 @@
                          fromInteger (num `mod` toInteger width) +
                          (numelems - width))
       in case sizeclasses of
-        -- If there is only one size class, then 
+        -- If there is only one size class, then
         [ _ ] -> (fwdmapbasic 0 numelems, revmapbasic 0 numelems)
         (Just firstsize, _) : rest  ->
           let
@@ -759,7 +758,7 @@
                encSize = sizeval, encInDomain = indomainfunc }
 
 isqrt :: Integer -> Integer
-isqrt = integerSquareRoot'
+isqrt = integerSquareRoot
 
 mkPairCore :: Encoding ty1 -> Encoding ty2 ->
               ((ty1, ty2) -> Integer, Integer -> (ty1, ty2), Maybe Integer)