diff --git a/R/getPeriodTable.R b/R/getPeriodTable.R
index d76cca982fd86f9d069fd759dc195319b25b70dd..972064e412d3a3d3fce20a3f82f975e92c2d1994 100644
--- a/R/getPeriodTable.R
+++ b/R/getPeriodTable.R
@@ -23,15 +23,22 @@ setGeneric("getPeriodTable",
 #' @describeIn getPeriodTable Return the period life table as a
 #'             \code{mortalityTable.period} object
 setMethod("getPeriodTable","mortalityTable",
-          function (object, Period, ...) {
+          function (object, Period, ages = NULL, ...) {
               if(missing(Period)) {
                   Period = baseYear(object)
               }
+              if (missing(ages) | is.null(ages)) {
+                  ages = ages(object)
+              }
+              data = object@data
+              data$dim$Period = Period
+              data$dim$year = Period
               mortalityTable.period(
                   name = paste0(object@name, ", Period ", Period),
                   baseYear = Period,
-                  ages = ages(object),
-                  deathProbs = periodDeathProbabilities(object, Period = Period, ...)
+                  ages = ages,
+                  deathProbs = periodDeathProbabilities(object, Period = Period, ages = ages, ...),
+                  data = data
               )
           })