diff --git a/changelog.md b/changelog.md
index 5fa722f81..d93272527 100644
--- a/changelog.md
+++ b/changelog.md
@@ -10,7 +10,9 @@
     - Function signature for kick() and evolv2() in the fortran changed to remove ``bkick`` entirely
     - Also removed ``kick_info_out``. Both of these can be reconstructed from ``kick_info``
 
-- Bug fixes: corrected mass sign in bjorklund wind routine in SSE_mlwind.f
+- Bug fixes: c
+    - corrected mass sign in bjorklund wind routine in SSE_mlwind.f
+    - fixed bug in ``bhspinmag`` assignment in ``assign_remnant.f``
 
 ## 4.0.1
 
diff --git a/src/cosmic/src/assign_remnant.f b/src/cosmic/src/assign_remnant.f
index 35d32202d..f3f681cd0 100644
--- a/src/cosmic/src/assign_remnant.f
+++ b/src/cosmic/src/assign_remnant.f
@@ -712,9 +712,11 @@ SUBROUTINE assign_remnant_spin(mc, bhspin)
       IMPLICIT NONE
       INCLUDE 'const_bse.h'
 
-      real*8 ran3, mc, bhspin
+      real  ran3
       EXTERNAL ran3
 
+      real*8 mc, bhspin
+
 * Set all BH spins equal to bhspinmag
       if(bhspinflag.eq.0)then
          bhspin = bhspinmag
@@ -731,7 +733,7 @@ SUBROUTINE assign_remnant_spin(mc, bhspin)
             bhspin = 0.0d0
          endif
       endif
-
+      
       end
 
       integer function first_mt_type_as_donor(star)