diff --git a/docs/yap.tex b/docs/yap.tex
index 959131c18..425d5f295 100644
--- a/docs/yap.tex
+++ b/docs/yap.tex
@@ -4583,6 +4583,12 @@ exists.
 The term @var{T} is written to the current output stream according to
 the operator declarations in force.
 
+@item writeln(@var{T}) [ISO]
+@findex writeln/1
+@snindex writeln/1
+@cnindex writeln/1
+Same as @code{write/1} followed by {nl/0}.
+
 @item display(+@var{T})
 @findex display/1
 @syindex display/1
diff --git a/pl/yio.yap b/pl/yio.yap
index 652a75925..e9b1ef17d 100644
--- a/pl/yio.yap
+++ b/pl/yio.yap
@@ -506,6 +506,10 @@ nl.
 write(T) :-
 	'$write'(4, T).
 
+writeln(T) :-
+	'$write'(4, T),
+	nl.	
+
 write(Stream,T) :- 
 	'$write'(Stream,4,T).