diff --git a/collects/scribble/base-render.ss b/collects/scribble/base-render.ss
index d3da4290..9d4589a9 100644
--- a/collects/scribble/base-render.ss
+++ b/collects/scribble/base-render.ss
@@ -404,6 +404,7 @@
                                                 #t
                                                 (loop)))))))))))
               (when (file-exists? dest-file) (delete-file dest-file))
+              (make-directory* (path-only dest-file))
               (copy-file src-file dest-file))
             (path->string fn))))
 
diff --git a/collects/scribble/manual.ss b/collects/scribble/manual.ss
index 0359209c..a194de58 100644
--- a/collects/scribble/manual.ss
+++ b/collects/scribble/manual.ss
@@ -1400,7 +1400,13 @@
                                              (loop (cdr form)))]
                        [else null]))])
       (let ([l (clauseses-thunk)])
-        (*schemerawgrammars #f (map car l) (map cdr l)))))
+        (*schemerawgrammars #f 
+                            (map (lambda (x)
+                                   (make-element #f
+                                                 (list (hspace 2)
+                                                       (car x))))
+                                 l)
+                            (map cdr l)))))
 
   (define (*var id)
     (to-element (*var-sym id)))