diff --git a/src/vector.adb b/src/vector.adb
index 9722366..101e823 100644
--- a/src/vector.adb
+++ b/src/vector.adb
@@ -85,7 +85,7 @@ package body vector is
         tmp: T_Element;
     begin
         if b - a > 1 then
-            for j in a..b loop
+            for j in a+1..b loop
                 if vec(j) <= vec(pivot) then
                     i := i + 1;
                     tmp := vec(i);
@@ -169,4 +169,4 @@ end vector;
 --        Quick_Sort (A (Left .. A'Last));
 --    end;
 --    end if;
--- end Quick_Sort;
\ No newline at end of file
+-- end Quick_Sort;