From 6ca62ee1ed10aa8159c1032b5e1f89ffaf5e353d Mon Sep 17 00:00:00 2001
From: cpicanco <cpicanco42@gmail.com>
Date: Sun, 4 Dec 2016 16:04:34 -0300
Subject: [PATCH] fix bug in debug function

---
 cultural_matrix.lpr | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/cultural_matrix.lpr b/cultural_matrix.lpr
index ae2cef3..946ebcc 100644
--- a/cultural_matrix.lpr
+++ b/cultural_matrix.lpr
@@ -50,9 +50,9 @@ const
     Result := True;
     for i := 0 to 2 do
       begin
-        if Pos((PathDelim+'P'+IntToStr(i+1)+PathDelim), Application.ExeName) > 0 then
+        if Pos(('Participant'), Application.ExeName) > 0 then
           Break;
-        F := ApplicationPath+'P'+IntToStr(i+1);
+        F := ApplicationPath+'Participant'+IntToStr(i+1);
         WriteLn(F);
         if ForceDirectoriesUTF8(F) then // ensure we have always the newer version for tests
           begin
--
libgit2 0.21.2