diff --git a/src/scm/main.scm b/src/scm/main.scm
index f5841ab626..bd51bf9d7c 100644
--- a/src/scm/main.scm
+++ b/src/scm/main.scm
@@ -552,7 +552,7 @@ string and 'directories' must be a list of strings."
 		(string-null? (cadr parts-in)))
 	   file)
 	  (else
-	   (gnc:strip-path (append (string-split (getenv "PWD") #\/) parts-in))))
+	   (gnc:strip-path (string-append (getenv "PWD") "/" file))))
   )
 )