diff --git a/test/suite-peg.janet b/test/suite-peg.janet
index f46ed9e5..3ae0974a 100644
--- a/test/suite-peg.janet
+++ b/test/suite-peg.janet
@@ -856,13 +856,13 @@
   (def actual @"")
   (with-dyns [:err actual *err-color* true]
     (test name peg input expected-matches))
-  (assert (deep= (string actual) expected-stderr)))
+  (assert (deep= (string/replace-all "\r" "" actual) expected-stderr)))
 
 (defn test-stderr-no-color [name peg input expected-matches expected-stderr]
   (def actual @"")
   (with-dyns [:err actual *err-color* false]
     (test name peg input expected-matches))
-  (assert (deep= (string actual) expected-stderr)))
+  (assert (deep= (string/replace-all "\r" "" actual) expected-stderr)))
 
 (test-stderr "?? long form"
              '(* (debug) "abc")