diff --git a/packages/RDF/rdf.pl b/packages/RDF/rdf.pl
index 745f38e3f..06a67f302 100644
--- a/packages/RDF/rdf.pl
+++ b/packages/RDF/rdf.pl
@@ -37,6 +37,9 @@
 	    process_rdf/3		% +File, :OnTriples, :Options
 	  ]).
 
+:- expects_dialect(swi).
+:- assert(system:swi_io).
+
 :- meta_predicate
 	load_rdf(+, -, :),
 	process_rdf(+, :, :).
@@ -411,3 +414,5 @@ quote(X)   --> [X].
 
 :- multifile prolog:meta_goal/2.
 prolog:meta_goal(process_rdf(_,G,_), [G+2]).
+
+:- retract(system:swi_io).	%
diff --git a/packages/RDF/rdf_write.pl b/packages/RDF/rdf_write.pl
index 2d3be9424..903a24797 100644
--- a/packages/RDF/rdf_write.pl
+++ b/packages/RDF/rdf_write.pl
@@ -40,6 +40,9 @@
 :- use_module(library(pairs)).
 :- use_module(library(debug)).
 
+:- expects_dialect(swi).
+:- assert(system:swi_io).
+
 
 /** <module> Write RDF/XML from a list of triples
 
@@ -634,3 +637,6 @@ to_be_described('http://t-d-b.org?').
 
 ns(Id, Full) :-
 	rdf_db:ns(Id, Full).
+
+:- retract(system:swi_io).
+
diff --git a/packages/RDF/test_rdf.pl b/packages/RDF/test_rdf.pl
index 48cb9503e..43ecb0966 100644
--- a/packages/RDF/test_rdf.pl
+++ b/packages/RDF/test_rdf.pl
@@ -315,3 +315,4 @@ show_ok(Test) :-
 	new(D, rdf_diagram(string('Ok for %s', File))),
 	send(D, triples, OkTriples),
 	send(D, open).
+
diff --git a/packages/RDF/test_write.pl b/packages/RDF/test_write.pl
index ec85d7607..ec9e3fd81 100644
--- a/packages/RDF/test_write.pl
+++ b/packages/RDF/test_write.pl
@@ -52,6 +52,9 @@
 :- use_module(library(semweb/rdf_db)).
 :- use_module(rdf).
 
+:- expects_dialect(swi).
+:- assert(system:swi_io).
+
 test_write :-
 	run_tests([ rdf_write
 		  ]).
@@ -160,3 +163,4 @@ test(type, true) :-
 :- end_tests(rdf_write).
 
 
+:- retract(system:swi_io).