diff --git a/src/tests/normal-tests/metaobject-protocol.lsp b/src/tests/normal-tests/metaobject-protocol.lsp
index b9b1f5ece..53e77db55 100644
--- a/src/tests/normal-tests/metaobject-protocol.lsp
+++ b/src/tests/normal-tests/metaobject-protocol.lsp
@@ -601,11 +601,15 @@ the metaclass")
 ;;; From: Pascal Costanza
 ;;; Description:
 ;;;
-;;;     sort-applicable-methods is invoked by two methods and one
-;;;     invocation triggers a disambiguation error:
+;;;  sort-applicable-methods is invoked by two methods and one
+;;;  invocation triggers a disambiguation error:
 ;;;
-;;;       Condition of type: SIMPLE-ERROR
-;;;       The type specifiers #<The STANDARD-CLASS COMMON-LISP-USER::B> and #<The STANDARD-CLASS COMMON-LISP-USER::A> can not be disambiguated with respect to the argument specializer: #<The STANDARD-CLASS STANDARD-CLASS>
+;;;   Condition of type: SIMPLE-ERROR
+;;;
+;;;    The type specifiers #<The STANDARD-CLASS COMMON-LISP-USER::B>
+;;;    and #<The STANDARD-CLASS COMMON-LISP-USER::A> can not be
+;;;    disambiguated with respect to the argument specializer:
+;;;    #<The STANDARD-CLASS STANDARD-CLASS>
 (ext:with-clean-symbols (a b c f)
   (defclass a () ())
   (defclass b () ())