diff --git a/collects/tests/typed-scheme/succeed/kw.ss b/collects/tests/typed-scheme/succeed/kw.ss
new file mode 100644
index 0000000000..a964ddf13f
--- /dev/null
+++ b/collects/tests/typed-scheme/succeed/kw.ss
@@ -0,0 +1,8 @@
+#lang typed-scheme
+
+
+
+(lambda () 
+  (open-input-file "foo" #:mode 'binary)
+  (open-input-file "foo" #:mode 'text)
+  (open-input-file "foo"))