diff --git a/crunch.compiler.debug-old.scm b/crunch.compiler.debug.scm
index c623b10..f7527ae 100644
--- a/crunch.compiler.debug.scm
+++ b/crunch.compiler.debug.scm
@@ -22,7 +22,7 @@

 (define crunch-dir
   (or (get-environment-variable "CRUNCH_DIR")
-      (chicken-home)))
+      (car (include-path))))

 (define debugger-input (make-parameter #f))