diff --git a/source/clog-utilities.lisp b/source/clog-utilities.lisp
index 8c735c8..8f7a2c9 100644
--- a/source/clog-utilities.lisp
+++ b/source/clog-utilities.lisp
@@ -152,8 +152,8 @@ and not for security purposes or html escapes."
         (cond (html
                (setf res (ppcre:regex-replace-all "\\x22" res """)) ; "
                (setf res (ppcre:regex-replace-all "\\x27" res "'")) ; '
-               (setf res (ppcre:regex-replace-all "\\x0A" res "")) ; \n
-               (setf res (ppcre:regex-replace-all "\\x0D" res ""))) ; \r
+               (setf res (ppcre:regex-replace-all "\\x0A" res "
")) ; \n
+               (setf res (ppcre:regex-replace-all "\\x0D" res "&#x0D"))) ; \r
               (t
                (setf res (ppcre:regex-replace-all "\\x22" res "\\x22")) ; "
                (setf res (ppcre:regex-replace-all "\\x27" res "\\x27")) ; '