diff --git a/collects/tests/mzscheme/embed-me1d.ss b/collects/tests/mzscheme/embed-me1d.ss
new file mode 100644
index 0000000000..cc6b750193
--- /dev/null
+++ b/collects/tests/mzscheme/embed-me1d.ss
@@ -0,0 +1,8 @@
+#lang scheme/base
+
+(require scheme/runtime-path
+         (for-syntax scheme/base))
+(define-runtime-path file '(lib "file.gif" "icons"))
+(with-output-to-file "stdout"
+  (lambda () (printf "This is 1d~n"))
+  #:exists 'append)
diff --git a/collects/tests/mzscheme/embed-me1e.ss b/collects/tests/mzscheme/embed-me1e.ss
new file mode 100644
index 0000000000..645df59905
--- /dev/null
+++ b/collects/tests/mzscheme/embed-me1e.ss
@@ -0,0 +1,8 @@
+#lang scheme/base
+
+(require scheme/runtime-path
+         (for-syntax scheme/base))
+(define-runtime-path file '(lib "html"))
+(with-output-to-file "stdout"
+  (lambda () (printf "This is 1e~n"))
+  #:exists 'append)
diff --git a/collects/tests/mzscheme/embed.ss b/collects/tests/mzscheme/embed.ss
index cf4963ac63..e7aa33ba27 100644
--- a/collects/tests/mzscheme/embed.ss
+++ b/collects/tests/mzscheme/embed.ss
@@ -213,6 +213,8 @@
   (one-mz-test "embed-me1.ss" "This is 1\n" #t)
   (one-mz-test "embed-me1b.ss" "This is 1b\n" #f)
   (one-mz-test "embed-me1c.ss" "This is 1c\n" #f)
+  (one-mz-test "embed-me1d.ss" "This is 1d\n" #f)
+  (one-mz-test "embed-me1e.ss" "This is 1e\n" #f)
   (one-mz-test "embed-me2.ss" "This is 1\nThis is 2: #t\n" #t)
 
   ;; Try unicode expr and cmdline: