diff --git a/os/pl-error.c b/os/pl-error.c
index 43ede40b2..f0ec697e1 100644
--- a/os/pl-error.c
+++ b/os/pl-error.c
@@ -42,7 +42,8 @@ PL_get_atom_ex__LD(term_t t, atom_t *a ARG_LD)
 
 int
 PL_get_atom_ex(term_t t, atom_t *a)
-{ if ( PL_get_atom(t, a) )
+{ GET_LD
+  if ( PL_get_atom(t, a) )
     succeed;
 
   return PL_error(NULL, 0, NULL, ERR_TYPE, ATOM_atom, t);