diff --git a/R/dBetaBinom.R b/R/dBetaBinom.R
index bb23718..1a24682 100644
--- a/R/dBetaBinom.R
+++ b/R/dBetaBinom.R
@@ -115,7 +115,7 @@ dBetaBinom_s <- nimbleFunction(
     return(exp(logprob))
     returnType(double(0))
   },
-  buildDerivs = list(run=list())
+  buildDerivs = list(run=list(ignore = 'i'))
 )
 
 #' @rdname dBetaBinom
diff --git a/R/dNmixtureAD.R b/R/dNmixtureAD.R
index 6a82656..76e13d8 100644
--- a/R/dNmixtureAD.R
+++ b/R/dNmixtureAD.R
@@ -289,7 +289,7 @@ dNmixtureAD_BBP_s <- nimbleFunction(
     #Clen <- ADbreak(len)
     Nmin <- ADbreak(max( max(x), Nmin )) ## set Nmin to at least the largest x
     logProb <- dNmixture_BBP_steps(x, beta-x, lambda, s, Nmin, Nmax,
-                                   dBetaBinom_v(x, Nmin, alpha, beta, len = len, log = TRUE))
+                                   dBetaBinom_s(x, Nmin, alpha, beta, len = len, log = TRUE))
     if (log) return(logProb)
     else return(exp(logProb))
     returnType(double())