diff --git a/lisp/uniquify.el b/lisp/uniquify.el
index 6b48fe3df62..27a0dbd1200 100644
--- a/lisp/uniquify.el
+++ b/lisp/uniquify.el
@@ -110,7 +110,7 @@ is a list of strings.  For example the current implementation for
 post-forward-angle-brackets could be:
 
 (defun my-post-forward-angle-brackets (base extra-string)
-  (concat base \"<\" (mapconcat #'identity extra-string \"/\") \">\"))
+  (concat base \"<\" (mapconcat #\\='identity extra-string \"/\") \">\"))
 
 The \"mumble\" part may be stripped as well, depending on the
 setting of `uniquify-strip-common-suffix'.  For more options that