From 977374d00f27e105a301f48d625d0f7858bcb47b Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.burg@gmx.com>
Date: Sat, 15 Aug 2015 09:33:52 +0200
Subject: [PATCH] symstrings, less erroneou CPCD symbol

see 1d769d35834f8ed92e20583525f5b8c9d6ad0a65
---
 src/ce_symstring.pas | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/ce_symstring.pas b/src/ce_symstring.pas
index 98022eda..9b841f6d 100644
--- a/src/ce_symstring.pas
+++ b/src/ce_symstring.pas
@@ -217,7 +217,10 @@ begin
           str.Add(fname);
         end;
         fSymbols[CPFS] := str.Text;
-        fSymbols[CPCD] := commonFolder(str);
+        if str.Count = 1 then
+          fSymbols[CPCD] := ExtractFileDir(Str.Strings[0])
+        else
+          fSymbols[CPCD] := commonFolder(str);
       finally
         str.Free;
       end;