diff --git a/Logtalk/examples/errors/portability.lgt b/Logtalk/examples/errors/portability.lgt
new file mode 100644
index 000000000..af4ba52c3
--- /dev/null
+++ b/Logtalk/examples/errors/portability.lgt
@@ -0,0 +1 @@
+
:- object(portability).


	:- public(predicate/0).


	predicate :-
		compare(Result, first, second),
		retractall(result(Result, _)),
		sort([], []),
		consult(file).


:- end_object.
\ No newline at end of file