diff --git a/sammy/src/xct/mxct30.f90 b/sammy/src/xct/mxct30.f90
index 58217d5f678952852f3006bc9471640cb63cf9d8..40491a9f8e0a052b4754d5872d2ee18a33d01177 100644
--- a/sammy/src/xct/mxct30.f90
+++ b/sammy/src/xct/mxct30.f90
@@ -95,6 +95,7 @@ end function
                      isoMgr = spinMgr%getIsotopeIndex()
                      IF (IsoNgr.EQ.IsoMgr)   &
                         THEN
+                        Spinm = dABS(spinGroupMgr%getJ())
                         Acn2 = Acn
 !v                        IF (Mgr.NE.Ngr) THEN
 !v                           Acn2 = Two*Acn