From c5e3e3818dea22871aab3954afc1dcfa60defa9f Mon Sep 17 00:00:00 2001
From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Tue, 11 Oct 2016 18:50:14 +0200
Subject: [PATCH] Avoid out-of-spec strncat usage.

mes.c (readword): Use character assignment instead of strncat.  Fixes
Valgrind nit.
---
 mes.c | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/mes.c b/mes.c
index 2e49756c..e6f0a02a 100644
--- a/mes.c
+++ b/mes.c
@@ -1102,7 +1102,10 @@ readword (int c, char *w, scm *a)
   if (c == '#' && peek_char () == '!') {getchar (); readblock (getchar ()); return readword (getchar (), w, a);}
   char buf[256] = {0};
   char ch = c;
-  return readword (getchar (), strncat (w ? w : buf, &ch, 1), a);
+  char *p = w ? w + strlen (w) : buf;
+  *p = ch;
+  *(p+1) = 0;
+  return readword (getchar (), w ? w : buf, a);
 }
 
 scm *