allocate_buffer): Call VALIDATE_LISP_STORAGE.

1 files changed, 5 insertions, 2 deletions

diff --git a/src/alloc.c b/src/alloc.c
index 5c0e0dd3c68..b048d04e645 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -611,8 +611,11 @@ lisp_malloc (nbytes, type)
 struct buffer *
 allocate_buffer ()
 {
-  return (struct buffer *) lisp_malloc (sizeof (struct buffer),
-                                        MEM_TYPE_BUFFER);
+  struct buffer *b 
+    = (struct buffer *) lisp_malloc (sizeof (struct buffer),
+                                     MEM_TYPE_BUFFER);
+  VALIDATE_LISP_STORAGE (b, sizeof *b);
+  return b;
 }