diff --git a/R/trans-numeric.R b/R/trans-numeric.R
index bc2b6a61..164ec803 100644
--- a/R/trans-numeric.R
+++ b/R/trans-numeric.R
@@ -30,7 +30,13 @@ atanh_trans <- function() {
 #' @examples
 #' plot(asinh_trans(), xlim = c(-1e2, 1e2))
 asinh_trans <- function() {
-  trans_new("asinh", asinh, inverse = sinh)
+  trans_new(
+    "asinh",
+    transform = asinh,
+    inverse = sinh,
+    d_transform = function(x) 1 / sqrt(x^2 + 1),
+    d_inverse = cosh
+  )
 }
 
 #' Box-Cox & modulus transformations