(error): Fix logic in call to xmalloc/xrealloc.

1 files changed, 5 insertions, 1 deletions

diff --git a/src/eval.c b/src/eval.c
index 0643655f0f3..8aadc0b0a9a 100644
--- a/src/eval.c
+++ b/src/eval.c
@@ -1331,7 +1331,11 @@ error (m, a1, a2, a3)
       size *= 2;
       if (allocated)
         buffer = (char *) xrealloc (buffer, size);
-      buffer = (char *) xmalloc (size);
+      else
+        {
+          buffer = (char *) xmalloc (size);
+          allocated = 1;
+        }
     }
 
   string = build_string (buf);