diff --git a/collects/scribblings/guide/contracts-examples/1-test.ss b/collects/scribblings/guide/contracts-examples/1-test.ss
index 383d66326d..a66e2db25e 100644
--- a/collects/scribblings/guide/contracts-examples/1-test.ss
+++ b/collects/scribblings/guide/contracts-examples/1-test.ss
@@ -1,14 +1,12 @@
 #lang scheme
-(require (planet "test.ss" ("schematics" "schemeunit.plt" 2))
-         (planet "text-ui.ss" ("schematics" "schemeunit.plt" 2)))
-(require "1.ss" "1b.ss")
+(require schemeunit/test schemeunit/text-ui "1.ss" "1b.ss")
 
 (add (make-basic-customer 'mf "matthias" "brookstone"))
 (add (make-basic-customer 'rf "robby" "beverly hills park"))
 (add (make-basic-customer 'fl "matthew" "pepper clouds town"))
 (add (make-basic-customer 'sk "shriram" "i city"))
 
-(test/text-ui
+(run-tests
  (test-suite 
   "manager"
   (test-equal? "id lookup" "matthias" (name 'mf))
diff --git a/collects/scribblings/guide/contracts-examples/2-test.ss b/collects/scribblings/guide/contracts-examples/2-test.ss
index 7ee93bf5f8..b1917cb62b 100644
--- a/collects/scribblings/guide/contracts-examples/2-test.ss
+++ b/collects/scribblings/guide/contracts-examples/2-test.ss
@@ -1,12 +1,10 @@
 #lang scheme
-(require (planet "test.ss" ("schematics" "schemeunit.plt" 2))
-         (planet "text-ui.ss" ("schematics" "schemeunit.plt" 2))
-         "2.ss")
+(require schemeunit/test schemeunit/text-ui "2.ss")
 
 (define s0 (initialize (flat-contract integer?) =))
 (define s2 (push (push s0 2) 1))
 
-(test/text-ui
+(run-tests
  (test-suite
   "stack"
   (test-true
diff --git a/collects/scribblings/guide/contracts-examples/3-test.ss b/collects/scribblings/guide/contracts-examples/3-test.ss
index d7b5443c8b..fb5cb2e88a 100644
--- a/collects/scribblings/guide/contracts-examples/3-test.ss
+++ b/collects/scribblings/guide/contracts-examples/3-test.ss
@@ -1,12 +1,10 @@
 #lang scheme
-(require (planet "test.ss" ("schematics" "schemeunit.plt" 2))
-         (planet "text-ui.ss" ("schematics" "schemeunit.plt" 2))
-         "3.ss")
+(require schemeunit/test schemeunit/text-ui "3.ss")
 
 (define d0 (initialize (flat-contract integer?) =))
 (define d (put (put (put d0 'a 2) 'b 2) 'c 1))
 
-(test/text-ui
+(run-tests
  (test-suite
   "dictionaries"
   (test-equal? "value for" 2 (value-for d 'b))
diff --git a/collects/scribblings/guide/contracts-examples/5-test.ss b/collects/scribblings/guide/contracts-examples/5-test.ss
index 09cb868365..8d39bd1864 100644
--- a/collects/scribblings/guide/contracts-examples/5-test.ss
+++ b/collects/scribblings/guide/contracts-examples/5-test.ss
@@ -1,11 +1,9 @@
 #lang scheme
-(require (planet "test.ss" ("schematics" "schemeunit.plt" 2))
-         (planet "text-ui.ss" ("schematics" "schemeunit.plt" 2))
-         "5.ss")
+(require schemeunit/test schemeunit/text-ui "5.ss")
 
 (define s (put (put (initialize (flat-contract integer?) =) 2) 1))
 
-(test/text-ui
+(run-tests
  (test-suite
   "queue"
   (test-true