complete the path

quad/quadwriter/render.rkt

@@ -457,7 +457,8 @@
                                       [else (current-directory)])])
                      (match maybe-dir
                        [(? directory-exists? dir) dir]
-                       [_ (define-values (dir name _) (split-path maybe-dir))
+                       [(app path->complete-path cp)
+                        (define-values (dir name _) (split-path cp))
                         dir])))
   
   (unless (directory-exists? base-dir)