diff --git a/collects/scribble/render.rkt b/collects/scribble/render.rkt
index de4f1717..79e8b74c 100644
--- a/collects/scribble/render.rkt
+++ b/collects/scribble/render.rkt
@@ -9,21 +9,22 @@
          (prefix-in html:  "html-render.rkt"))
 
 (provide/contract 
- [render ((listof part?)
-          (listof path-string?)
-          #:render-mixin (class? . -> . class?)
-          #:dest-dir (or/c #f path-string?)
-          #:prefix-file (or/c #f path-string?)
-          #:style-file (or/c #f path-string?)
-          #:style-extra-files (listof path-string?)
-          #:extra-files (listof path-string?)
-          #:redirect (or/c #f string?)
-          #:redirect-main (or/c #f string?)
-          #:xrefs (listof xref?)
-          #:info-in-files (listof path?)
-          #:info-out-file (or/c #f path-string?)
-          #:quiet? any/c
-          . -> . void?)])
+ [render (((listof part?)
+           (listof path-string?))
+          (#:render-mixin
+           (class? . -> . class?)
+           #:dest-dir (or/c #f path-string?)
+           #:prefix-file (or/c #f path-string?)
+           #:style-file (or/c #f path-string?)
+           #:style-extra-files (listof path-string?)
+           #:extra-files (listof path-string?)
+           #:redirect (or/c #f string?)
+           #:redirect-main (or/c #f string?)
+           #:xrefs (listof xref?)
+           #:info-in-files (listof path?)
+           #:info-out-file (or/c #f path-string?)
+           #:quiet? any/c)
+          . ->* . void?)])
 
 (define (render docs
                 names
diff --git a/collects/tests/scribble/render.rkt b/collects/tests/scribble/render.rkt
new file mode 100644
index 00000000..19301c17
--- /dev/null
+++ b/collects/tests/scribble/render.rkt
@@ -0,0 +1,22 @@
+#lang racket/base
+(require scribble/render
+         scribble/text-render
+         scribble/core
+         racket/file)
+
+(render (list (part #f
+                    null
+                    (list "Render")
+                    (style #f null)
+                    null
+                    (list (paragraph (style #f null) "The content."))
+                    null))
+        (list "example")
+        #:render-mixin render-mixin)
+
+(unless (string=? "Render\n\nThe content.\n"
+                  (file->string "example.txt"))
+  (error "render test failed"))
+
+(delete-file "example.txt")
+