(Fmake_byte_code): Call make_pure_vector using nargs.

[bpt/emacs.git] / src / alloc.c

diff --git a/src/alloc.c b/src/alloc.c
index 4f66fbd..a526739 100644 (file)
--- 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);