diff --git a/src/libolle/gottochblandat_sorting.f90 b/src/libolle/gottochblandat_sorting.f90
index c5285309..742405c1 100644
--- a/src/libolle/gottochblandat_sorting.f90
+++ b/src/libolle/gottochblandat_sorting.f90
@@ -787,7 +787,7 @@ recursive subroutine generate(pos,pm,k)
         if (pos > pos_max) then
             ! store this one
             k=k+1
-            pm(:,i)=permutation
+            pm(:,k)=permutation
         else
             do val = val_min,val_max
                 if (.not. any (permutation(:pos-1) == val)) then