Index: inline.scm
===================================================================
--- inline.scm	(revision 28291)
+++ inline.scm	(working copy)
@@ -39,7 +39,7 @@
 (define (inline-eval x . o)
   (inline-compile x (if (pair? o) (car o) "") #t))
 
-(define-constant default-inline-cache-name ".cache")
+(define-constant default-inline-cache-name ".cache/chicken-inline")
 
 (define windows-shell (foreign-value "C_WINDOWS_SHELL" bool))
 (define inline-cache (make-parameter default-inline-cache-name))
@@ -94,7 +94,6 @@
 	   (zero? (system (sprintf "cmp -s ~A ~A" (qs a) (qs b)))) )))
 
 (define (ensure-cache)
-  (unless (file-exists? (inline-cache))
-    (create-directory (inline-cache)) ) )
+  (create-directory (inline-cache) #t) )
 
 )