diff --git a/ansi-tests/character.lsp b/ansi-tests/character.lsp
index 923439ef6a194f60554725fbb5f5738baf50e5e7..4f5b06df212e761edc3521c5c577074cc86e7837 100644
--- a/ansi-tests/character.lsp
+++ b/ansi-tests/character.lsp
@@ -574,11 +574,11 @@
   t)
 
 (deftest char-name.2
-  (string= (char-name #\Space) "Space")
+  (notnot-mv (string= (char-name #\Space) "Space"))
   t)
 
 (deftest char-name.3
-  (string= (char-name #\Newline) "Newline")
+  (notnot-mv (string= (char-name #\Newline) "Newline"))
   t)
 
 ;;; Check that the names of various semi-standard characters are