diff --git a/R/aFIPC.R b/R/aFIPC.R
index 62546519..764017eb 100644
--- a/R/aFIPC.R
+++ b/R/aFIPC.R
@@ -54,7 +54,12 @@ autoFIPC <-
     ...
   ) {
     # print credits
-    message('automated Fixed Item Parameter Calibration: aFIPC 0.2')
+    message(
+      paste0(
+        'automated Fixed Item Parameter Calibration: aFIPC ',
+        as.character(utils::packageVersion('aFIPC'))
+      )
+    )
     message('Seongho Bae (seongho@kw.ac.kr)\n')
     try(invisible(gc()), silent = T)
     # garbage cleaning
diff --git a/tests/testthat/test-package-version-banner.R b/tests/testthat/test-package-version-banner.R
new file mode 100644
index 00000000..5ce05809
--- /dev/null
+++ b/tests/testthat/test-package-version-banner.R
@@ -0,0 +1,28 @@
+test_that("autoFIPC banner reports the installed package version", {
+  messages <- character()
+
+  expect_error(
+    withCallingHandlers(
+      aFIPC::autoFIPC(
+        newformXData = NULL,
+        oldformYData = NULL,
+        newformCommonItemNames = character(),
+        oldformCommonItemNames = character()
+      ),
+      message = function(condition) {
+        messages <<- c(messages, conditionMessage(condition))
+        invokeRestart("muffleMessage")
+      }
+    ),
+    "newformXData must be a data.frame, matrix, or a valid fitted mirt model"
+  )
+
+  expect_gte(length(messages), 1L)
+  expect_identical(
+    messages[[1]],
+    paste0(
+      "automated Fixed Item Parameter Calibration: aFIPC ",
+      as.character(utils::packageVersion("aFIPC"))
+    )
+  )
+})