diff --git a/module/texinfo.scm b/module/texinfo.scm
index cb7a775d4..91bb46d8d 100644
--- a/module/texinfo.scm
+++ b/module/texinfo.scm
@@ -485,7 +485,7 @@ Examples:
   (assert-curr-char '(#\@) "start of the command" port)
   (let ((peeked (peek-char port)))
     (cond
-     ((memq peeked '(#\! #\. #\? #\@ #\\ #\{ #\}))
+     ((memq peeked '(#\! #\: #\. #\? #\@ #\\ #\{ #\}))
       ;; @-commands that escape characters
       (make-token 'STRING (string (read-char port))))
      (else
diff --git a/test-suite/tests/texinfo.test b/test-suite/tests/texinfo.test
index ebe46717f..c4ee58257 100644
--- a/test-suite/tests/texinfo.test
+++ b/test-suite/tests/texinfo.test
@@ -419,4 +419,6 @@
   (test-body "@pxref{Locales, @code{setlocale}}"
              '((para (pxref (% (node "Locales")
                                (name (code "setlocale")))))))
+  (test-body "Like this---e.g.@:, at colon."
+             ((para "Like this---e.g.:, at colon.")))
   )