From 501e2589e920de810fc9e8502b84cf73bafb63ab Mon Sep 17 00:00:00 2001 From: David Hampton Date: Mon, 9 Dec 2002 06:44:09 +0000 Subject: [PATCH] Somebody shoot me. git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@7666 57a11ea4-9604-0410-9ed3-97b8803252fd --- src/scm/main.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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)))) ) )