diff --git a/test/unit-tests/sexp.mlt b/test/unit-tests/sexp.mlt
index 1a744e9b..7776cec6 100644
--- a/test/unit-tests/sexp.mlt
+++ b/test/unit-tests/sexp.mlt
@@ -265,7 +265,7 @@ Different
    | Printing tests                                                  |
    +-----------------------------------------------------------------+ *)
 
-let loc = Sexp.Loc.in_file "<none>"
+let loc = Sexp.Loc.none
 let a = Sexp.atom
 let s x = Sexp.Quoted_string x
 let t  x = Sexp.Template { quoted = false; parts = x; loc }