diff --git a/collects/tests/drscheme/drscheme-test-util.ss b/collects/tests/drscheme/drscheme-test-util.ss
index 47977b36b7..e3b044ec73 100644
--- a/collects/tests/drscheme/drscheme-test-util.ss
+++ b/collects/tests/drscheme/drscheme-test-util.ss
@@ -28,8 +28,8 @@
            clear-definitions
            type-in-definitions
            type-in-interactions
-           paste-in-definitions
-           paste-in-interactions
+           insert-in-definitions
+           insert-in-interactions
            type-string
            wait
            wait-pending
@@ -195,9 +195,9 @@
     (put-in-frame (lambda (x) (send x get-definitions-canvas)) frame str #f))
   (define (type-in-interactions frame str)
     (put-in-frame (lambda (x) (send x get-interactions-canvas)) frame str #f))
-  (define (paste-in-definitions frame str)
+  (define (insert-in-definitions frame str)
     (put-in-frame (lambda (x) (send x get-definitions-canvas)) frame str #t))
-  (define (paste-in-interactions frame str)
+  (define (insert-in-interactions frame str)
     (put-in-frame (lambda (x) (send x get-interactions-canvas)) frame str #t))
 
   (define (put-in-frame get-canvas frame str/sexp paste?)
diff --git a/collects/tests/drscheme/module-lang-test-utils.ss b/collects/tests/drscheme/module-lang-test-utils.ss
index dd27b32903..95d1eb52f2 100644
--- a/collects/tests/drscheme/module-lang-test-utils.ss
+++ b/collects/tests/drscheme/module-lang-test-utils.ss
@@ -41,7 +41,7 @@
 (define (single-test test)
   (let/ec k
     (clear-definitions drs)
-    (paste-in-definitions drs (test-definitions test))
+    (insert-in-definitions drs (test-definitions test))
     (do-execute drs)
 
     (let ([ints (test-interactions test)])