diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,5 +1,10 @@
 # Changelog for `jacobi-elliptic`
 
+## 0.1.3.0 - 2023-10-18
+
+Increased lower bound of the version of 'jacobi-theta' dependency.
+
+
 ## 0.1.2.0 - 2023-10-16
 
 Increased lower bound of the version of 'jacobi-theta' dependency.
diff --git a/jacobi-elliptic.cabal b/jacobi-elliptic.cabal
--- a/jacobi-elliptic.cabal
+++ b/jacobi-elliptic.cabal
@@ -1,5 +1,5 @@
 name:                jacobi-elliptic
-version:             0.1.2.0
+version:             0.1.3.0
 synopsis:            Neville Theta Functions and Jacobi Elliptic Functions
 description:         Evaluation of the Neville theta functions and the Jacobi elliptic functions.
 homepage:            https://github.com/stla/jacobi-elliptic#readme
@@ -19,7 +19,7 @@
   exposed-modules:     Math.NevilleTheta
                      , Math.JacobiElliptic
   build-depends:       base >= 4.7 && < 5
-                     , jacobi-theta >= 0.2.0.0
+                     , jacobi-theta >= 0.2.1.1
                      , elliptic-integrals >= 0.1.0.0
   default-language:    Haskell2010
   ghc-options:         -Wall
diff --git a/src/Math/JacobiElliptic.hs b/src/Math/JacobiElliptic.hs
--- a/src/Math/JacobiElliptic.hs
+++ b/src/Math/JacobiElliptic.hs
@@ -1,3 +1,12 @@
+{-|
+Module      : Math.JacobiElliptic
+Description : Jacobi elliptic functions.
+Copyright   : (c) Stéphane Laurent, 2023
+License     : BSD3
+Maintainer  : laurent_step@outlook.fr
+
+Provides the Jacobi elliptic functions and the amplitude function.
+-}
 module Math.JacobiElliptic
     ( jellip,
       jellip',
diff --git a/src/Math/NevilleTheta.hs b/src/Math/NevilleTheta.hs
--- a/src/Math/NevilleTheta.hs
+++ b/src/Math/NevilleTheta.hs
@@ -1,3 +1,12 @@
+{-|
+Module      : Math.NevilleTheta
+Description : Neville theta functions.
+Copyright   : (c) Stéphane Laurent, 2023
+License     : BSD3
+Maintainer  : laurent_step@outlook.fr
+
+Provides the theta Neville functions.
+-}
 module Math.NevilleTheta
     ( theta_c, 
       theta_d,
@@ -11,7 +20,7 @@
 import Data.Complex           ( Complex(..) )
 import Math.EllipticIntegrals ( ellipticF )
 import Math.JacobiTheta
-    ( jtheta1, jtheta1Dash, jtheta2, jtheta3, jtheta4 )
+    ( jtheta1, jtheta1Dash0, jtheta2, jtheta3, jtheta4 )
 
 
 i_ :: Complex Double
@@ -62,7 +71,7 @@
   -> Complex Double -- ^ q, the nome
   -> Complex Double
 theta_s z q = 
-  j3sq * jtheta1 z' q / jtheta1Dash 0 q
+  j3sq * jtheta1 z' q / jtheta1Dash0 q
   where
     j3 = jtheta3 0 q
     j3sq = j3 * j3
diff --git a/tests/Main.hs b/tests/Main.hs
--- a/tests/Main.hs
+++ b/tests/Main.hs
@@ -139,8 +139,8 @@
 
     testCase "amplitude function" $ do
       let phi = 1 :+ 1
-          ell = ellipticF phi 2
-          obtained = am ell 2
+          ell = ellipticF phi 0.2
+          obtained = am ell 0.2
       assertApproxEqual "" 14 obtained phi
 
   ]