diff --git a/lisp/emacs-lisp/bindat.el b/lisp/emacs-lisp/bindat.el
index a2161022a89..ef0ec688dbd 100644
--- a/lisp/emacs-lisp/bindat.el
+++ b/lisp/emacs-lisp/bindat.el
@@ -205,7 +205,7 @@
    ('strz (bindat--unpack-strz len))
    ('vec
     (when (> len (length bindat-raw))
-      (error "Vector length %d is greater than raw data length %d."
+      (error "Vector length %d is greater than raw data length %d"
              len (length bindat-raw)))
     (let ((v (make-vector len 0)) (vlen 1))
       (if (consp vectype)