diff --git a/collects/racket/contract/private/blame.rkt b/collects/racket/contract/private/blame.rkt
index d7229fca96..c4e2617922 100644
--- a/collects/racket/contract/private/blame.rkt
+++ b/collects/racket/contract/private/blame.rkt
@@ -162,7 +162,7 @@
                       (format "  at: ~a" source-message)))
   
   (define self-or-not (if (blame-original? blme)
-                          "broke it's contract"
+                          "broke its contract"
                           "contract violation"))
   
   (define start-of-message
diff --git a/collects/tests/racket/contract-test.rktl b/collects/tests/racket/contract-test.rktl
index 7e845fd034..bb231314f5 100644
--- a/collects/tests/racket/contract-test.rktl
+++ b/collects/tests/racket/contract-test.rktl
@@ -144,7 +144,7 @@
       (define (has-proper-blame? msg)
         (define reg
           (cond
-            [(eq? blame 'pos) #rx"broke it's contract[\n:,].*blaming: pos"]
+            [(eq? blame 'pos) #rx"broke its contract[\n:,].*blaming: pos"]
             [(eq? blame 'neg) #rx"blaming: neg"]
             [(string? blame) (string-append "blaming: " (regexp-quote blame))]
             [else #f]))
@@ -13588,7 +13588,7 @@ so that propagation occurs.
        (eval '(require 'pce1-bug)))
    (λ (x)
      (and (exn:fail:contract:blame? x)
-          (regexp-match #rx"the-defined-variable1: broke it's contract" (exn-message x)))))
+          (regexp-match #rx"the-defined-variable1: broke its contract" (exn-message x)))))
   
   (contract-error-test
    'contract-error-test9
diff --git a/collects/tests/units/test-unit-contracts.rktl b/collects/tests/units/test-unit-contracts.rktl
index 2d117adda5..836e002bfa 100644
--- a/collects/tests/units/test-unit-contracts.rktl
+++ b/collects/tests/units/test-unit-contracts.rktl
@@ -7,18 +7,18 @@
 
 (define (match-blame re msg)
   (or (regexp-match? (format "blaming: ~a" re) msg)
-      (regexp-match? (format "broke it's contract:.*blaming: ~a" re) msg)))
+      (regexp-match? (format "broke its contract:.*blaming: ~a" re) msg)))
 
 (define (match-obj re msg)
   (or (regexp-match? (format "~a: contract violation" re) msg)
-      (regexp-match? (format "~a: broke it's contract" re) msg)))
+      (regexp-match? (format "~a: broke its contract" re) msg)))
 
 (define (get-ctc-err msg)
   (cond
     [(regexp-match  #rx"contract violation\n *([^\n]*)\n" msg)
      =>
      (λ (x) (cadr x))]
-    [(regexp-match #rx"broke it's contract\n *([^\n]*)\n" msg)
+    [(regexp-match #rx"broke its contract\n *([^\n]*)\n" msg)
      =>
      (lambda (x) (cadr x))]
     [else (error 'test-contract-error