diff --git a/collects/2htdp/utest/sam.rkt b/collects/2htdp/utest/sam.rkt
index 01e83d56ae..d69d0c0e1a 100644
--- a/collects/2htdp/utest/sam.rkt
+++ b/collects/2htdp/utest/sam.rkt
@@ -1,7 +1,7 @@
-;; The first three lines of this file were inserted by DrScheme. They record metadata
+;; The first three lines of this file were inserted by DrRacket. They record metadata
 ;; about the language level of this file in a form that our tools can easily process.
 #reader(lib "htdp-intermediate-lambda-reader.ss" "lang")((modname sam) (read-case-sensitive #t) (teachpacks ()) (htdp-settings #(#t constructor repeating-decimal #f #t none #f ())))
-(require "shared.rkt"
-         2htdp/universe)
+(require "shared.rkt")
+(require 2htdp/universe)
 
 (launch-many-worlds (make-player 200 "sam") (make-player 100 "carl"))
diff --git a/collects/tests/racket/stx.rktl b/collects/tests/racket/stx.rktl
index cf34a75045..70b593f317 100644
--- a/collects/tests/racket/stx.rktl
+++ b/collects/tests/racket/stx.rktl
@@ -497,7 +497,7 @@
                s)]))])
   (let-values ([(real real-base) (module-path-index-split (car b))]
                [(nominal nominal-base) (module-path-index-split (caddr b))])
-    (test '"teachprims.ss" values real)
+    (test '"teachprims.rkt" values real)
     (test 'beginner-cons cadr b)
     (test '(lib "lang/htdp-intermediate.rkt") values nominal)
     (test 'cons cadddr b)))
@@ -511,7 +511,7 @@
                s)]))])
   (let-values ([(real real-base) (module-path-index-split (car b))]
                [(nominal nominal-base) (module-path-index-split (caddr b))])
-    (test '"teachprims.ss" values real)
+    (test '"teachprims.rkt" values real)
     (test 'beginner-cons cadr b)
     (test '(lib "lang/htdp-intermediate.rkt") values nominal)
     (test 'cons cadddr b)))