diff --git a/R/lakeFetch.R b/R/lakeFetch.R
index 5edd962..9bf3eb8 100644
--- a/R/lakeFetch.R
+++ b/R/lakeFetch.R
@@ -131,7 +131,7 @@ lakeFetch <- function(inLakeMorpho, bearing, addLine = TRUE) {
   if (addLine) {
     myName <- paste("maxFetchLine_", bearing, sep = "")
     inLakeMorpho[[substitute(myName)]] <- NULL
-    inLakeMorpho[[substitute(myName)]] <- myLine
+    inLakeMorpho[[substitute(myName)]] <- as(myLine, "Spatial") #TODO: Yank this as() when switch to sf complete
     class(inLakeMorpho) <- "lakeMorpho"
     assign(inputName, inLakeMorpho, envir = parent.frame())
   }