Index: crunch.setup
===================================================================
--- crunch.setup	(revision 27477)
+++ crunch.setup	(working copy)
@@ -25,5 +25,5 @@
 (when (setup-install-mode)
   (let ((dir (make-pathname (installation-prefix) "include/chicken")))
     (unless (file-exists? dir)
-      (create-directory dir) )
+      (create-directory dir 'with-parents) )
     (copy-file "crunch.h" dir)))