From 4db1935704fc130c8856408de3728bda6ca9769c Mon Sep 17 00:00:00 2001
From: "Jan (janneke) Nieuwenhuizen" <janneke@gnu.org>
Date: Tue, 22 Oct 2019 09:11:29 +0200
Subject: [PATCH] core: Prepare for conversion to pointer cells.

* src/posix.c (execl_): Prepare for conversion to pointer cells.
---
 src/posix.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/posix.c b/src/posix.c
index 5c869458..1dee281a 100644
--- a/src/posix.c
+++ b/src/posix.c
@@ -305,7 +305,8 @@ execl_ (SCM file_name, SCM args)        /*:((name . "execl")) */
   while (args != cell_nil)
     {
       assert_msg (TYPE (CAR (args)) == TSTRING, "TYPE (CAR (args)) == TSTRING");
-      c_argv[i] = CSTRING (CAR (args));
+      SCM arg = CAR (args);
+      c_argv[i] = CSTRING (arg);
       i = i + 1;
       args = CDR (args);
       if (g_debug > 2)