diff --git a/doit.lsp b/doit.lsp
index 8a982e273c12a73197d2bc0313645eb0aa3ed12a..e052fc0d704c1eca11a55d51396541fc2f91ce26 100644
--- a/doit.lsp
+++ b/doit.lsp
@@ -17,7 +17,7 @@
        (dir-pathname (make-pathname :name :wild :type type))
        (subdir-pathname (make-pathname :directory '(:relative :wild)
                                        :name :wild :type type))
-       (format-pathname (make-pathname :directory '(:relative "printer/format")
+       (format-pathname (make-pathname :directory '(:relative "printer" "format")
                                        :name :wild :type type))
        (files (append (directory dir-pathname)
                       (directory subdir-pathname)