diff --git a/R/tm_g_lineplot.R b/R/tm_g_lineplot.R
index 0f9bd2a9d..bcaa321eb 100644
--- a/R/tm_g_lineplot.R
+++ b/R/tm_g_lineplot.R
@@ -195,7 +195,10 @@ template_g_lineplot <- function(dataname = "ANL",
   graph_list <- add_expr(
     graph_list,
     substitute(
-      expr = plot <- plot_call,
+      expr = {
+        plot <- plot_call
+        plot
+      },
       env = list(plot_call = plot_call)
     )
   )