diff --git a/docs/yap.tex b/docs/yap.tex
index 6d6308c78..5f64659a8 100644
--- a/docs/yap.tex
+++ b/docs/yap.tex
@@ -8,9 +8,9 @@
 @c @setchapternewpage odd
 @c %**end of header
 
-@set VERSION 4.3.20
-@set EDITION 4.1.0
-@set UPDATED July 2001
+@set VERSION 4.3.21
+@set EDITION 4.1.1
+@set UPDATED January 2002
 
 @c Index for C-Prolog compatible predicate
 @defindex cy
diff --git a/misc/Yap.spec b/misc/Yap.spec
index ac851d5a3..c4e32f64b 100644
--- a/misc/Yap.spec
+++ b/misc/Yap.spec
@@ -1,6 +1,6 @@
 Name: Yap
 Summary: Prolog Compiler
-Version: 4.3.20
+Version: 4.3.21
 Packager:     Vitor Santos Costa <vitor@cos.ufrj.br>
 Release: 1
 Source: http://www.ncc.up.pt/~vsc/Yap/Yap4.3/%{name}-%{version}.tar.gz
diff --git a/pl/errors.yap b/pl/errors.yap
index a12d30be4..ca17cdf7d 100644
--- a/pl/errors.yap
+++ b/pl/errors.yap
@@ -56,7 +56,7 @@ print_message(informational,M) :-
 print_message(warning,M) :-
 	format(user_error,"[ Warning: ", []),
 	'$do_print_message'(M),
-	format(user_error," ]", []).
+	format(user_error," ]~n", []).
 print_message(help,M) :-
 	format(user_error,"help on ~p",[M]).
 
@@ -65,6 +65,9 @@ print_message(help,M) :-
 	format(user_error,"[ The debugger will first creep -- showing everything (trace) ]~n",[]).
 '$do_print_message'(format(Msg, Args)) :- !,
 	format(user_error,Msg,Args).
+'$do_print_message'(import(Pred,To,From,private)) :-
+	format(user_error,"importing private predicate ~w:~w to ~w",
+	[From,Pred,To]).
 '$do_print_message'(Messg) :-
 	format(user_error,"~q",Messg).
 
diff --git a/pl/modules.yap b/pl/modules.yap
index 9e389cf1f..68563b22e 100644
--- a/pl/modules.yap
+++ b/pl/modules.yap
@@ -245,8 +245,7 @@ module(N) :-
 	'$use_preds'(Ps,Publics,Mod,M).
 '$use_preds'(N/K,Publics,M,Mod) :-
     (  '$member'(N/K,Publics) -> true ;
-		format(user_error,'[ Warning: there is no exported predicate ~w in module ~w]~n',
-			   [N/K,M])
+	print_message(warning,import(N/K,Mod,M,private))
     ),
     ( '$check_import'(M,Mod,N,K) -> 
 	%	     format(user_error,'[ Importing ~w to ~w]~n',[M:N/K,Mod]),