diff --git a/rts/Adjustor.c b/rts/Adjustor.c
index e4d6e8c529cd..9f879de72917 100644
--- a/rts/Adjustor.c
+++ b/rts/Adjustor.c
@@ -132,7 +132,7 @@ createAdjustor (int cconv,
     }
 
     r = ffi_prep_closure_loc(cl, cif, (void*)wptr, hptr/*userdata*/, code);
-    if (r != FFI_OK) barf("ffi_prep_closure failed: %d", r);
+    if (r != FFI_OK) barf("ffi_prep_closure_loc failed: %d", r);
 
     return (void*)code;
 }