(Fccl_execute): Typo fixed.

diff --git a/src/ccl.c b/src/ccl.c
index 4f0dfbfbdbc0c92d504e3b323bc03f9d360e8a4d..6ce8c752a15c00d4682329e44ee201a372a65ab8 100644 (file)
--- a/src/ccl.c
+++ b/src/ccl.c
@@ -1818,7 +1818,7 @@ As side effect, each element of REGISTERS holds the value of\n\
 
   CHECK_VECTOR (reg, 1);
   if (XVECTOR (reg)->size != 8)
-    error ("Length of vector REGISTERS is not 9");
+    error ("Length of vector REGISTERS is not 8");
 
   for (i = 0; i < 8; i++)
     ccl.reg[i] = (INTEGERP (XVECTOR (reg)->contents[i])