diff --git a/contrib/sb-manual/markdown.lisp b/contrib/sb-manual/markdown.lisp
index 3bed23f63..045eeebf6 100644
--- a/contrib/sb-manual/markdown.lisp
+++ b/contrib/sb-manual/markdown.lisp
@@ -425,8 +425,8 @@
 
 ;;;; Processing Markdown inline elements
 
-;;; Format symbols either as Texinfo code or as variables if the
-;;; symbol in question is contained in symbols *TEXINFO-LOCAL-VARIABLES*.
+;;; Format symbols either as Texinfo @code{}, link sections, and
+;;; handle concepts.
 (defun codify-and-link (line)
   (with-output-to-string (result)
     (let ((last 0))
@@ -529,12 +529,12 @@
                     (out-escaped (char string i))
                     (incf i)
                     ;; Protect the rest of the contiguous word from
-                    ;; CODIFY-AND-LINK up until
+                    ;; CODIFY-AND-LINK.
                     (loop
                       while (and (< i len)
                                  (not (or (whitespacep (char string i))
                                           (find (char string i)
-                                                " ,.!?;()'[]{}\""))))
+                                                ",.!?;()'[]{}\""))))
                       do (out-escaped (char string i))
                          (incf i))
                     (decf i)))
diff --git a/tools-for-build/canonicalize-whitespace.lisp b/tools-for-build/canonicalize-whitespace.lisp
index d9326fee2..205b52a1b 100644
--- a/tools-for-build/canonicalize-whitespace.lisp
+++ b/tools-for-build/canonicalize-whitespace.lisp
@@ -87,7 +87,7 @@
         (print file)
         (write-sequence new stream)))))
 
-(defvar *source-types* '("lisp" "lisp-expr" "c" "h" "asd" "texinfo"))
+(defvar *source-types* '("lisp" "lisp-expr" "c" "h" "asd"))
 
 (defvar *exceptions* '("compile-file-pos-utf16be"))