Index: common.scm
==================================================================
--- common.scm
+++ common.scm
@@ -635,10 +635,13 @@
     (if match ;; using ~ for home?
 	(common:nice-path (conc (common:read-link-f (cadr match)) "/" (caddr match)))
 	(normalize-pathname (if (absolute-pathname? dir)
 				dir
 				(conc (current-directory) "/" dir))))))
+
+;; make "nice-path" available in config files and the repl
+(define nice-path common:nice-path)
 
 (define (common:read-link-f path)
   (handle-exceptions
       exn
       (begin