Bug aus Lokalitaetspruefung entfernt

1 files changed, 1 insertions, 1 deletions

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;