From 531f0c3f27136e2d0f98c61c43d6ecc436e0dc19 Mon Sep 17 00:00:00 2001
From: Jan 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 75dcf8f6..ad1c9fa4 100644
--- a/src/posix.c
+++ b/src/posix.c
@@ -298,7 +298,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)