diff --git a/src/coleslaw-conf.lisp b/src/coleslaw-conf.lisp
index b1436da..116d113 100644
--- a/src/coleslaw-conf.lisp
+++ b/src/coleslaw-conf.lisp
@@ -1,10 +1,10 @@
 (defpackage #:coleslaw-conf
   (:use #:cl)
-  (:import-from #:uiop/pathname
-                #:pathname-parent-directory-pathname)
   (:export #:*basedir*))
 
 (in-package #:coleslaw-conf)
 
-(defparameter *basedir* (pathname-parent-directory-pathname (make-pathname :name nil :type nil :defaults *load-truename*))
+(defparameter *basedir*
+  (uiop/pathname:pathname-parent-directory-pathname
+   #.(or *compile-file-truename* *load-truename*))
   "A pathname pointing to Coleslaw's top level directory.")