From 45f858310064390226db71676706b0004667bee9 Mon Sep 17 00:00:00 2001
From: Erich Eckner <git@eckner.net>
Date: Wed, 22 Jul 2015 10:23:37 +0200
Subject: Bug aus Lokalitaetspruefung entfernt

---
 tools.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'tools.pas')

diff --git a/tools.pas b/tools.pas
index 0d23ff1..49a9251 100644
--- a/tools.pas
+++ b/tools.pas
@@ -81,7 +81,7 @@ begin
   oBef:=bef;
 
   while notQuotedPos(';',bef)>0 do begin
-    testeObBefehlLokal(trim(leftStr(bef,notQuotedPos(';',bef))),ordner,lokTest);
+    testeObBefehlLokal(trim(leftStr(bef,notQuotedPos(';',bef)-1)),ordner,lokTest);
     delete(bef,1,notQuotedPos(';',bef));
     bef:=trim(bef);
   end;
-- 
cgit v1.2.3-54-g00ecf