diff --git a/library/dialect/swi.yap b/library/dialect/swi.yap
index fea5696be..2214a8cf0 100755
--- a/library/dialect/swi.yap
+++ b/library/dialect/swi.yap
@@ -224,7 +224,7 @@ goal_expansion(rename_file(A,B),system:swi_rename_file(A,B)) :- swi_io.
 goal_expansion(is_absolute_file_name(A), is_absolute_file_name(A)) :- swi_io.
 goal_expansion(file_base_name(A,B),system:swi_file_base_name(A,B)) :- swi_io.
 goal_expansion(file_directory_name(A,B),system:swi_file_directory_name(A,B)) :- swi_io.
-goal_expansion(prolog_to_os_filename(A,B),system:swi_prolog_to_os_filename(A,B)) :- swi_io.
+%goal_expansion(prolog_to_os_filename(A,B),system:swi_prolog_to_os_filename(A,B)) :- swi_io.
 goal_expansion('$mark_executable'(A), system:'swi_is_absolute_file_name'(A)) :- swi_io.
 goal_expansion('$absolute_file_name'(A,B),system:'swi_$absolute_file_name'(A,B)) :- swi_io.
 
@@ -281,7 +281,7 @@ concat_atom(List, New) :-
 
 setenv(X,Y) :- unix(putenv(X,Y)).
 
-prolog_to_os_filename(X,X).
+%prolog_to_os_filename(X,X).
 
 is_absolute_file_name(X) :-
 	absolute_file_name(X,X).