diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el
index 60bd2baa6fb..e51b184f874 100644
--- a/lisp/wid-edit.el
+++ b/lisp/wid-edit.el
@@ -499,7 +499,7 @@ With CHECK-AFTER non-nil, considers also the content after point, if needed."
 
 (defmacro widget-specify-insert (&rest form)
   "Execute FORM without inheriting any text properties."
-   (declare (debug body))
+   (declare (debug (body)))
   `(save-restriction
     (let ((inhibit-read-only t)
 	  (inhibit-modification-hooks t))