diff --git a/src/crystallite.f90 b/src/crystallite.f90
index 8601697ba..c5bd4d979 100644
--- a/src/crystallite.f90
+++ b/src/crystallite.f90
@@ -3353,8 +3353,7 @@ logical function crystallite_integrateStress(&
 
  NiterationStressLi = 0_pInt
  jacoCounterLi      = 0_pInt
- steplengthLi0      = 1.0_pReal
- steplengthLi       = steplengthLi0
+ steplengthLi       = 1.0_pReal
  residuumLi_old     = 0.0_pReal
 
  LiLoop: do
diff --git a/src/homogenization.f90 b/src/homogenization.f90
index b70eacc56..c8c5fad01 100644
--- a/src/homogenization.f90
+++ b/src/homogenization.f90
@@ -923,10 +923,10 @@ subroutine materialpoint_postResults
    material_phase, &
    homogenization_Ngrains, &
    microstructure_crystallite
- use constitutive, only: &
 #ifdef FEM
+ use constitutive, only: &
    constitutive_plasticity_maxSizePostResults, &
-   constitutive_source_maxSizePostResults, &
+   constitutive_source_maxSizePostResults
 #endif
  use crystallite, only: &
 #ifdef FEM