1 files changed, 1 insertions, 1 deletions

diff --git a/doc/misc/cl.texi b/doc/misc/cl.texi
index 1e5d40b0377..04e2c71a2b9 100644
--- a/doc/misc/cl.texi
+++ b/doc/misc/cl.texi
@@ -5030,7 +5030,7 @@ The above @code{incf} example could be written using
 @ignore
 (defmacro concatf (place &rest args)
   (gv-letplace (getter setter) place
-    (macroexp-let2 nil v (mapconcat 'identity args "")
+    (macroexp-let2 nil v (mapconcat 'identity args)
       (funcall setter `(concat ,getter ,v)))))
 @end ignore
 @end defmac