X-Git-Url: http://git.hcoop.net/bpt/emacs.git/blobdiff_plain/01a4d290aacf83d739394b6e831506a598f0cc07..5a053ea9811b64c63fde8f98900f3aa13f68b659:/src/alloc.c

diff --git a/src/alloc.c b/src/alloc.c
index 4f66fbd4d3..a526739d0e 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -824,7 +824,7 @@ significance.")
 
   XSETFASTINT (len, nargs);
   if (!NILP (Vpurify_flag))
-    val = make_pure_vector (XFASTINT (len));
+    val = make_pure_vector ((EMACS_INT) nargs);
   else
     val = Fmake_vector (len, Qnil);
   p = XVECTOR (val);