diff --git a/R/logit.R b/R/logit.R
index ccb2de7..dc60d49 100644
--- a/R/logit.R
+++ b/R/logit.R
@@ -8,7 +8,7 @@ logit <- function(p, percents, adjust){
 	if (missing(percents) && range.p[2] > 1){
 	  percents <- TRUE
 	  message("Note: largest value of p > 1 so values of p interpreted as percents")
-	} else {
+	} else if (missing(percents) %% range.p[2] <= 1) {
 	  percents <- FALSE
 	}
 	if (percents){