diff --git a/collects/2htdp/tests/mp.ss b/collects/2htdp/tests/mp.ss
index de3a43dd24..e25abd9357 100644
--- a/collects/2htdp/tests/mp.ss
+++ b/collects/2htdp/tests/mp.ss
@@ -2,6 +2,7 @@
 ;; about the language level of this file in a form that our tools can easily process.
 #reader(lib "htdp-beginner-reader.ss" "lang")((modname mp) (read-case-sensitive #t) (teachpacks ()) (htdp-settings #(#t constructor repeating-decimal #f #t none #f ())))
 (require 2htdp/universe)
+(require htdp/image)
 
 ;; WorldState = Image 
 
diff --git a/collects/2htdp/tests/stop.ss b/collects/2htdp/tests/stop.ss
index 680fc14cd5..af3e5bf45e 100644
--- a/collects/2htdp/tests/stop.ss
+++ b/collects/2htdp/tests/stop.ss
@@ -1,8 +1,8 @@
 ;; The first three lines of this file were inserted by DrScheme. 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 test-stop) (read-case-sensitive #t) (teachpacks ()) (htdp-settings #(#t constructor repeating-decimal #f #t none #f ())))
-
+#reader(lib "htdp-intermediate-lambda-reader.ss" "lang")((modname stop) (read-case-sensitive #t) (teachpacks ()) (htdp-settings #(#t constructor repeating-decimal #f #t none #f ())))
 (require 2htdp/universe)
+(require htdp/image)
 
 ;; on RETURN stop
 
diff --git a/collects/2htdp/tests/test-image.ss b/collects/2htdp/tests/test-image.ss
index 8ea3236c13..d6bb2dfb41 100644
--- a/collects/2htdp/tests/test-image.ss
+++ b/collects/2htdp/tests/test-image.ss
@@ -994,19 +994,19 @@
 (check-equal? (bmbytes-ref/safe checker3x3 3 3 1 19) (list->bytes '(  0 0 255 0)))
 
 
-#;
+
 (check-equal? (bytes->list (interpolate checker2x2 2 2 1 0))
               '(255 0 255 0))
-#;
+
 (check-equal? (bytes->list (interpolate checker3x3 3 3 0 0))
               '(255 0 0 255))
-#;
+
 (check-equal? (bytes->list (interpolate checker3x3 3 3 0 1))
               '(255 0 255 0))
-#;
+
 (check-equal? (bytes->list (interpolate checker3x3 3 3 0 2))
               '(255 0 0 255))
-#;
+
 (check-equal? (bytes->list (interpolate checker3x3 3 3 0.5 0))
               '(255 0 128 128))
 
diff --git a/collects/2htdp/tests/ufo-rename.ss b/collects/2htdp/tests/ufo-rename.ss
index af02a4d47a..54c0fd0912 100644
--- a/collects/2htdp/tests/ufo-rename.ss
+++ b/collects/2htdp/tests/ufo-rename.ss
@@ -1,5 +1,6 @@
 #lang scheme
-(require (prefix-in uni: 2htdp/universe))
+(require (prefix-in uni: 2htdp/universe)
+         (prefix-in uni: htdp/image))
 
 (define (create-UFO-scene height)
   (uni:place-image UFO 50 height (uni:empty-scene 100 100)))