diff --git a/DESCRIPTION b/DESCRIPTION
index d5be86b..662ea5c 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -24,6 +24,7 @@ Imports:
     dplyr (>= 1.1.2),
     fs (>= 1.6.2),
     fst (>= 0.9.8),
+    hms,
     lifecycle (>= 1.0.3),
     magrittr (>= 2.0.3),
     openssl (>= 2.0.6),
@@ -52,4 +53,4 @@ Language: en-GB
 LazyData: true
 Roxygen: list(markdown = TRUE, roclets = c("collate","namespace", "rd",
     "vignette" ))
-RoxygenNote: 7.2.3
+RoxygenNote: 7.3.1
diff --git a/R/read_slf.R b/R/read_slf.R
index 0b8bde6..aa5021c 100644
--- a/R/read_slf.R
+++ b/R/read_slf.R
@@ -146,17 +146,27 @@ read_slf_episode <- function(
   }
   # TODO add option to drop blank CHIs?
   # TODO add a filter by recid option
-  return(
-    read_slf(
-      year = year,
-      col_select = unique(col_select),
-      file_version = "episode",
-      partnerships = unique(partnerships),
-      recids = unique(recids),
-      as_data_frame = as_data_frame,
-      dev = dev
-    )
+
+  data <- read_slf(
+    year = year,
+    col_select = unique(col_select),
+    file_version = "episode",
+    partnerships = unique(partnerships),
+    recids = unique(recids),
+    as_data_frame = as_data_frame,
+    dev = dev
   )
+
+  if ("keytime1" %in% colnames(data)) {
+    data <- data %>%
+      dplyr::mutate(keytime1 = hms::as_hms(.data$keytime1))
+  }
+  if ("keytime2" %in% colnames(data)) {
+    data <- data %>%
+      dplyr::mutate(keytime2 = hms::as_hms(.data$keytime2))
+  }
+
+  return(data)
 }
 
 #' Read a Source Linkage individual file