--- a/R/jags.R
+++ b/R/jags.R
@@ -247,7 +247,12 @@
 
     if (n.adapt > 0) {
         ok <- adapt(model, n.adapt)
-        if (!ok) warning("Adaptation incomplete")
+        if (ok) {
+            .Call("adapt_off", p, PACKAGE="rjags")
+        }
+        else {
+            warning("Adaptation incomplete")
+        }
     }
     return(model)
 }