diff --git a/ocaml/Angmom.ml b/ocaml/Angmom.ml
index 4e315a95..0f1658f0 100644
--- a/ocaml/Angmom.ml
+++ b/ocaml/Angmom.ml
@@ -2,6 +2,7 @@ open Qptypes
 open Sexplib.Std
 
 type t = S|P|D|F|G|H|I|J|K|L [@@deriving sexp]
+type st = t [@@deriving sexp]
 
 let to_string = function
   | S -> "S"
@@ -70,9 +71,6 @@ let of_l i =
   | x -> raise (Failure ("Angmom should be S|P|D|F|G|H|I|J|K|L"))
 
 
-type st = t
-
-
 module Xyz = struct
   type t = { x: Positive_int.t ;
              y: Positive_int.t ;
diff --git a/src/determinants/spindeterminants.irp.f b/src/determinants/spindeterminants.irp.f
index 87c5d360..01979c02 100644
--- a/src/determinants/spindeterminants.irp.f
+++ b/src/determinants/spindeterminants.irp.f
@@ -14,7 +14,7 @@ integer*8 function spin_det_search_key(det,Nint)
   END_DOC
   integer, intent(in) :: Nint
   integer(bit_kind), intent(in) :: det(Nint)
-  integer(bit_kind), parameter :: unsigned_shift = -huge(1_bit_kind) ! 100...00
+  integer(bit_kind), parameter :: unsigned_shift = 1_bit_kind-huge(1_bit_kind) ! 100...00
   integer :: i
   spin_det_search_key = det(1)
   do i=2,Nint