diff --git a/pl/directives.yap b/pl/directives.yap
index 5411d820e..9909f5af1 100644
--- a/pl/directives.yap
+++ b/pl/directives.yap
@@ -317,12 +317,12 @@ yap_flag(version,X) :-
 
 yap_flag(version_data,X) :-
 	var(X), !,
-	'$get_version_codes(Major,Minor,Patch),
+	'$get_version_codes'(Major,Minor,Patch),
 	X = yap(Major, Minor, Patch, _).
 yap_flag(version_data,X) :-
 	'$do_error'(permission_error(modify,flag,version),yap_flag(version_data,X)).
 
-'$get_version_codes(Major,Minor,Patch) :-
+'$get_version_codes'(Major,Minor,Patch) :-
 	get_value('$version_name',X),
 	atom_codes(X,[0'Y,0'a,0'p,0'-|VersionTag]),
 	'$fetch_num_code'(VersionTag,0,Major,L1),