diff --git a/collects/tests/racket/embed-me19.rkt b/collects/tests/racket/embed-me19.rkt
new file mode 100644
index 0000000000..158643bc6c
--- /dev/null
+++ b/collects/tests/racket/embed-me19.rkt
@@ -0,0 +1,13 @@
+#lang racket/base
+(require racket/runtime-path)
+
+(define-runtime-module-path plai plai)
+(define-runtime-module-path plai-reader plai/lang/reader)
+
+(parameterize ([read-accept-reader #t])
+  (namespace-require 'racket/base)
+  (eval (read (open-input-string "#lang plai 10"))))
+
+(with-output-to-file "stdout"
+  (lambda () (printf "This is 19.\n"))
+  #:exists 'append)
diff --git a/collects/tests/racket/embed.rktl b/collects/tests/racket/embed.rktl
index 9f95f62cf1..5c7b6ba662 100644
--- a/collects/tests/racket/embed.rktl
+++ b/collects/tests/racket/embed.rktl
@@ -226,6 +226,7 @@
   (one-mz-test "embed-me15.rkt" "This is 15.\n" #f)
   (one-mz-test "embed-me17.rkt" "This is 17.\n" #f)
   (one-mz-test "embed-me18.rkt" "This is 18.\n" #f)
+  (one-mz-test "embed-me19.rkt" "This is 19.\n" #f)
 
   ;; Try unicode expr and cmdline:
   (prepare dest "unicode")