--- a/R/jags.R
+++ b/R/jags.R
@@ -184,6 +184,12 @@
                 stop("Invalid parameters for chain ", i)
             }
             setParameters(init.values[[i]], i)
+            unused.inits <- setdiff(names(init.values[[i]]), varnames)
+            unused.inits <- setdiff(unused.inits,
+                                    c(".RNG.seed", ".RNG.state", ".RNG.name"))
+            for (j in seq(along=unused.inits)) {
+                warning("Unused initial value for \"", unused.inits[j], "\" in chain ", i)
+            }
         }
     }