diff --git a/crunch.compiler.debug.scm b/crunch.compiler.debug.scm
index c623b10..fefbe5c 100644
--- a/crunch.compiler.debug.scm
+++ b/crunch.compiler.debug.scm
@@ -16,6 +16,11 @@
 (import (crunch compiler node)
         (crunch compiler type))

+(cond-expand
+  (chicken-6
+    (define (chicken-home)
+      (car (include-path)))))
+
 (define debugger-active (make-parameter #f))

 (define wish (or (get-environment-variable "CRUNCH_WISH") "wish"))