diff --git a/NAMESPACE b/NAMESPACE
index 9b993ae..84353b6 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -39,6 +39,7 @@ S3method(as.integer64,bitstring)
 S3method(as.integer64,character)
 S3method(as.integer64,double)
 S3method(as.integer64,factor)
+S3method(as.integer64,integer)
 S3method(as.integer64,integer64)
 S3method(as.integer64,logical)
 S3method(as.list,integer64)
diff --git a/R/integer64.R b/R/integer64.R
index 0b9b893..d68ba1c 100644
--- a/R/integer64.R
+++ b/R/integer64.R
@@ -843,12 +843,16 @@ as.integer64.double <- function(x, keep.names=FALSE, ...){
 
 #' @rdname as.integer64.character
 #' @export
-as.integer64.logical <- as.integer64.integer <- function(x, ...){
+as.integer64.integer <- function(x, ...){
   ret <- .Call(C_as_integer64_integer, x, double(length(x)))
   oldClass(ret) <- "integer64"
   ret
 }
 
+#' @rdname as.integer64.character
+#' @export
+as.integer64.logical <- as.integer64.integer
+
 #' @rdname as.integer64.character
 #' @export
 as.integer64.character <- function(x, ...){
diff --git a/man/as.integer64.character.Rd b/man/as.integer64.character.Rd
index 9ec1916..146f0f1 100644
--- a/man/as.integer64.character.Rd
+++ b/man/as.integer64.character.Rd
@@ -7,6 +7,7 @@
 \alias{as.integer64.NULL}
 \alias{as.integer64.integer64}
 \alias{as.integer64.double}
+\alias{as.integer64.integer}
 \alias{as.integer64.logical}
 \alias{as.integer64.factor}
 \alias{as.integer64.bitstring}
@@ -24,6 +25,8 @@ as.integer64(x, ...)
 
 \method{as.integer64}{double}(x, keep.names = FALSE, ...)
 
+\method{as.integer64}{integer}(x, ...)
+
 \method{as.integer64}{logical}(x, ...)
 
 \method{as.integer64}{character}(x, ...)