require typo, mostly

svn: r15088

collects/2htdp/utest/ball2.ss

@@ -1,6 +1,6 @@
 #lang scheme/gui
 
-(require "../2htdp/universe.ss")
+(require 2htdp/universe)
 
 (define-struct unistate (active passive) #:transparent)
 

collects/2htdp/utest/player

@@ -1,5 +1,5 @@
 #! /bin/sh
-#|
+#| -*- scheme -*-
 exec mred -qu "$0" ${1+"$@"}
 |#
 
@@ -11,6 +11,6 @@ exec mred -qu "$0" ${1+"$@"}
 
 (unless (= (vector-length argv) 1)
   (error 'player "name of one player expected: $ ./player name"))
-  
+
 (make-player 200 (string->symbol (vector-ref argv 0)))