Merge branch 'egil/fix-cover-error_logger/OTP-12818'

* egil/fix-cover-error_logger/OTP-12818:
  cover: Unstick modules before loading remote
  kernel: Add module name to sticky_dir error message
  kernel: Remove ?line macros in error_logger_warn_SUITE

3 files changed, 248 insertions, 240 deletions

diff --git a/lib/kernel/src/code_server.erl b/lib/kernel/src/code_server.erl
index a4342715ef..eecd26863a 100644
--- a/lib/kernel/src/code_server.erl
+++ b/lib/kernel/src/code_server.erl
@@ -1259,7 +1259,7 @@ try_load_module(File, Mod, Bin, {From,_}=Caller, St0) ->
 try_load_module_1(File, Mod, Bin, Caller, #state{moddb=Db}=St) ->
     case is_sticky(Mod, Db) of
 	true ->                         %% Sticky file reject the load
-	    error_msg("Can't load module that resides in sticky dir\n",[]),
+	    error_msg("Can't load module '~w' that resides in sticky dir\n",[Mod]),
 	    {reply,{error,sticky_directory},St};
 	false ->
             Architecture = erlang:system_info(hipe_architecture),
diff --git a/lib/kernel/test/error_logger_warn_SUITE.erl b/lib/kernel/test/error_logger_warn_SUITE.erl
index fb576d77a3..16e0286593 100644
--- a/lib/kernel/test/error_logger_warn_SUITE.erl
+++ b/lib/kernel/test/error_logger_warn_SUITE.erl
@@ -69,7 +69,7 @@ end_per_group(_GroupName, Config) ->
 
 
 init_per_testcase(_Case, Config) ->
-    ?line Dog = ?t:timetrap(?default_timeout),
+    Dog = ?t:timetrap(?default_timeout),
     [{watchdog, Dog} | Config].
 end_per_testcase(_Case, Config) ->
     Dog = ?config(watchdog, Config),
@@ -184,83 +184,81 @@ nn() ->
 
     
 basic() ->
-    ?line Node = start_node(nn(),[]),
-    ?line ok = install_relay(Node),
-    ?line Self = self(),
-    ?line GL = group_leader(),
-    ?line warning = warning_map(Node),
-    ?line format(Node,"~p~n",[Self]),
-    ?line ?EXPECT({handle_event,{error,GL,{_,"~p~n",[Self]}}}),
-    ?line error_msg(Node,"~p~n",[Self]),
-    ?line ?EXPECT({handle_event,{error,GL,{_,"~p~n",[Self]}}}),
-    ?line warning_msg(Node,"~p~n",[Self]),
-    ?line ?EXPECT({handle_event,{warning_msg,GL,{_,"~p~n",[Self]}}}),
-    ?line info_msg(Node,"~p~n",[Self]),
-    ?line ?EXPECT({handle_event,{info_msg,GL,{_,"~p~n",[Self]}}}),
-    ?line Report = [{self,Self},{gl,GL},make_ref()],
-    ?line error_report(Node,Report),
-    ?line ?EXPECT({handle_event,{error_report,GL,{_,std_error,Report}}}),
-    ?line warning_report(Node,Report),
-    ?line ?EXPECT({handle_event,{warning_report,GL,{_,std_warning,Report}}}),
-    ?line info_report(Node,Report),
-    ?line ?EXPECT({handle_event,{info_report,GL,{_,std_info,Report}}}),
-
-    ?line stop_node(Node),
+    Node = start_node(nn(),[]),
+    ok = install_relay(Node),
+    Self = self(),
+    GL = group_leader(),
+    warning = warning_map(Node),
+    format(Node,"~p~n",[Self]),
+    ?EXPECT({handle_event,{error,GL,{_,"~p~n",[Self]}}}),
+    error_msg(Node,"~p~n",[Self]),
+    ?EXPECT({handle_event,{error,GL,{_,"~p~n",[Self]}}}),
+    warning_msg(Node,"~p~n",[Self]),
+    ?EXPECT({handle_event,{warning_msg,GL,{_,"~p~n",[Self]}}}),
+    info_msg(Node,"~p~n",[Self]),
+    ?EXPECT({handle_event,{info_msg,GL,{_,"~p~n",[Self]}}}),
+    Report = [{self,Self},{gl,GL},make_ref()],
+    error_report(Node,Report),
+    ?EXPECT({handle_event,{error_report,GL,{_,std_error,Report}}}),
+    warning_report(Node,Report),
+    ?EXPECT({handle_event,{warning_report,GL,{_,std_warning,Report}}}),
+    info_report(Node,Report),
+    ?EXPECT({handle_event,{info_report,GL,{_,std_info,Report}}}),
+    stop_node(Node),
     ok.
     
 warnings_info() ->
-    ?line Node = start_node(nn(),"+Wi"),
-    ?line ok = install_relay(Node),
-    ?line Self = self(),
-    ?line GL = group_leader(),
-    ?line info = warning_map(Node),
-    ?line Report = [{self,Self},{gl,GL},make_ref()],
-    ?line warning_msg(Node,"~p~n",[Self]),
-    ?line ?EXPECT({handle_event,{info_msg,GL,{_,"~p~n",[Self]}}}),
-    ?line warning_report(Node,Report),
-    ?line ?EXPECT({handle_event,{info_report,GL,{_,std_info,Report}}}),
-    ?line stop_node(Node),
+    Node = start_node(nn(),"+Wi"),
+    ok = install_relay(Node),
+    Self = self(),
+    GL = group_leader(),
+    info = warning_map(Node),
+    Report = [{self,Self},{gl,GL},make_ref()],
+    warning_msg(Node,"~p~n",[Self]),
+    ?EXPECT({handle_event,{info_msg,GL,{_,"~p~n",[Self]}}}),
+    warning_report(Node,Report),
+    ?EXPECT({handle_event,{info_report,GL,{_,std_info,Report}}}),
+    stop_node(Node),
     ok.
 
 warnings_errors() ->    
-    ?line Node = start_node(nn(),"+We"),
-    ?line ok = install_relay(Node),
-    ?line Self = self(),
-    ?line GL = group_leader(),
-    ?line error = warning_map(Node),
-    ?line Report = [{self,Self},{gl,GL},make_ref()],
-    ?line warning_msg(Node,"~p~n",[Self]),
-    ?line ?EXPECT({handle_event,{error,GL,{_,"~p~n",[Self]}}}),
-    ?line warning_report(Node,Report),
-    ?line ?EXPECT({handle_event,{error_report,GL,{_,std_error,Report}}}),
-    ?line stop_node(Node),
+    Node = start_node(nn(),"+We"),
+    ok = install_relay(Node),
+    Self = self(),
+    GL = group_leader(),
+    error = warning_map(Node),
+    Report = [{self,Self},{gl,GL},make_ref()],
+    warning_msg(Node,"~p~n",[Self]),
+    ?EXPECT({handle_event,{error,GL,{_,"~p~n",[Self]}}}),
+    warning_report(Node,Report),
+    ?EXPECT({handle_event,{error_report,GL,{_,std_error,Report}}}),
+    stop_node(Node),
     ok.
-    
-    
+
 % RB...
 
 quote(String) ->
     case os:type() of
-	{win32,_} ->
-	    "\\\""++String++"\\\"";
-	_ ->
-	    "'\""++String++"\"'"
+        {win32,_} ->
+            "\\\""++String++"\\\"";
+        _ ->
+            "'\""++String++"\"'"
     end.
 
 iquote(String) ->
     case os:type() of
-	{win32,_} ->
-	    "\\\""++String++"\\\"";
-	_ ->
-	    "\""++String++"\""
+        {win32,_} ->
+            "\\\""++String++"\\\"";
+        _ ->
+            "\""++String++"\""
     end.
 
 oquote(String) ->
     case os:type() of
-	{win32,_} ->
-	    "\""++String++"\"";
-	_ ->
-	    "'"++String++"'"
+        {win32,_} ->
+            "\""++String++"\"";
+        _ ->
+            "'"++String++"'"
     end.
     
 
@@ -270,18 +268,18 @@ findstr(String,FileName) ->
 
 findstrc(String,File) ->
     case string:str(File,String) of
-	N when is_integer(N),
-	       N > 0 ->
-	    S2 = lists:sublist(File,N,length(File)),
-	    case string:str(S2,"\n") of
-		0 ->
-		    1;
-		M ->
-		    S3 = lists:sublist(S2,M,length(S2)),
-		    1 + findstrc(String,S3)
-	    end;
-	_ ->
-	    0
+        N when is_integer(N),
+               N > 0 ->
+            S2 = lists:sublist(File,N,length(File)),
+            case string:str(S2,"\n") of
+                0 ->
+                    1;
+                M ->
+                    S3 = lists:sublist(S2,M,length(S2)),
+                    1 + findstrc(String,S3)
+            end;
+        _ ->
+            0
     end.
 
 % Doesn't count empty lines
@@ -355,182 +353,182 @@ one_rb_findstr(Param,String) ->
 
 % Tests
 rb_basic() ->
-    ?line clean_rd(),
+    clean_rd(),
     % Behold, the magic parameters to activate rb logging...
-    ?line Node = start_node(nn(),"-boot start_sasl -sasl error_logger_mf_dir "++
-		      quote(rd())++" error_logger_mf_maxbytes 5000 "
-		      "error_logger_mf_maxfiles 5"),
-    ?line Self = self(),
-    ?line GL = group_leader(),
-    ?line warning = warning_map(Node),
-    ?line Report = [{self,Self},{gl,GL},make_ref()],
-    ?line fake_gl(Node,warning_msg,"~p~n",[Self]),
-    ?line fake_gl(Node,warning_report,Report),
-    ?line nice_stop_node(Node),
-    ?line application:start(sasl),
-    ?line rb:start([{report_dir, rd()}]),
-    ?line rb:list(),
-    ?line true = (one_rb_lines([error]) =:= 0),
-    ?line true = (one_rb_lines([error_report]) =:= 0),
-    ?line 0 = one_rb_findstr([error],pid_to_list(Self)),
-    ?line 0 = one_rb_findstr([error_report],pid_to_list(Self)),
-    ?line 1 = one_rb_findstr([warning_msg],pid_to_list(Self)),
-    ?line 1 = one_rb_findstr([warning_report],pid_to_list(Self)),
-    ?line 0 = one_rb_findstr([info_msg],pid_to_list(Self)),
-    ?line 0 = one_rb_findstr([info_report],pid_to_list(Self)),
-    ?line 2 = one_rb_findstr([],pid_to_list(Self)),
-    ?line true = (one_rb_findstr([progress],"===") > 4),
-    ?line rb:stop(),
-    ?line application:stop(sasl),
-    ?line stop_node(Node),
+    Node = start_node(nn(),"-boot start_sasl -sasl error_logger_mf_dir "++
+                      quote(rd())++" error_logger_mf_maxbytes 5000 "
+                      "error_logger_mf_maxfiles 5"),
+    Self = self(),
+    GL = group_leader(),
+    warning = warning_map(Node),
+    Report = [{self,Self},{gl,GL},make_ref()],
+    fake_gl(Node,warning_msg,"~p~n",[Self]),
+    fake_gl(Node,warning_report,Report),
+    nice_stop_node(Node),
+    application:start(sasl),
+    rb:start([{report_dir, rd()}]),
+    rb:list(),
+    true = (one_rb_lines([error]) =:= 0),
+    true = (one_rb_lines([error_report]) =:= 0),
+    0 = one_rb_findstr([error],pid_to_list(Self)),
+    0 = one_rb_findstr([error_report],pid_to_list(Self)),
+    1 = one_rb_findstr([warning_msg],pid_to_list(Self)),
+    1 = one_rb_findstr([warning_report],pid_to_list(Self)),
+    0 = one_rb_findstr([info_msg],pid_to_list(Self)),
+    0 = one_rb_findstr([info_report],pid_to_list(Self)),
+    2 = one_rb_findstr([],pid_to_list(Self)),
+    true = (one_rb_findstr([progress],"===") > 4),
+    rb:stop(),
+    application:stop(sasl),
+    stop_node(Node),
     ok.
 
 rb_warnings_info() ->
-    ?line clean_rd(),
-    ?line Node = start_node(nn(),"+W i -boot start_sasl -sasl error_logger_mf_dir "++
-		      quote(rd())++" error_logger_mf_maxbytes 5000 "
-		      "error_logger_mf_maxfiles 5"),
-    ?line Self = self(),
-    ?line GL = group_leader(),
-    ?line info = warning_map(Node),
-    ?line Report = [{self,Self},{gl,GL},make_ref()],
-    ?line fake_gl(Node,warning_msg,"~p~n",[Self]),
-    ?line fake_gl(Node,warning_report,Report),
-    ?line nice_stop_node(Node),
-    ?line application:start(sasl),
-    ?line rb:start([{report_dir, rd()}]),
-    ?line rb:list(),
-    ?line true = (one_rb_lines([error]) =:= 0),
-    ?line true = (one_rb_lines([error_report]) =:= 0),
-    ?line 0 = one_rb_findstr([error],pid_to_list(Self)),
-    ?line 0 = one_rb_findstr([error_report],pid_to_list(Self)),
-    ?line 0 = one_rb_findstr([warning_msg],pid_to_list(Self)),
-    ?line 0 = one_rb_findstr([warning_report],pid_to_list(Self)),
-    ?line 1 = one_rb_findstr([info_msg],pid_to_list(Self)),
-    ?line 1 = one_rb_findstr([info_report],pid_to_list(Self)),
-    ?line 2 = one_rb_findstr([],pid_to_list(Self)),
-    ?line true = (one_rb_findstr([progress],"===") > 4),
-    ?line rb:stop(),
-    ?line application:stop(sasl),
-    ?line stop_node(Node),
+    clean_rd(),
+    Node = start_node(nn(),"+W i -boot start_sasl -sasl error_logger_mf_dir "++
+                      quote(rd())++" error_logger_mf_maxbytes 5000 "
+                      "error_logger_mf_maxfiles 5"),
+    Self = self(),
+    GL = group_leader(),
+    info = warning_map(Node),
+    Report = [{self,Self},{gl,GL},make_ref()],
+    fake_gl(Node,warning_msg,"~p~n",[Self]),
+    fake_gl(Node,warning_report,Report),
+    nice_stop_node(Node),
+    application:start(sasl),
+    rb:start([{report_dir, rd()}]),
+    rb:list(),
+    true = (one_rb_lines([error]) =:= 0),
+    true = (one_rb_lines([error_report]) =:= 0),
+    0 = one_rb_findstr([error],pid_to_list(Self)),
+    0 = one_rb_findstr([error_report],pid_to_list(Self)),
+    0 = one_rb_findstr([warning_msg],pid_to_list(Self)),
+    0 = one_rb_findstr([warning_report],pid_to_list(Self)),
+    1 = one_rb_findstr([info_msg],pid_to_list(Self)),
+    1 = one_rb_findstr([info_report],pid_to_list(Self)),
+    2 = one_rb_findstr([],pid_to_list(Self)),
+    true = (one_rb_findstr([progress],"===") > 4),
+    rb:stop(),
+    application:stop(sasl),
+    stop_node(Node),
     ok.
 
 rb_warnings_errors() ->
-    ?line clean_rd(),
-    ?line Node = start_node(nn(),"+W e -boot start_sasl -sasl error_logger_mf_dir "++
-		      quote(rd())++" error_logger_mf_maxbytes 5000 "
-		      "error_logger_mf_maxfiles 5"),
-    ?line Self = self(),
-    ?line GL = group_leader(),
-    ?line error = warning_map(Node),
-    ?line Report = [{self,Self},{gl,GL},make_ref()],
-    ?line fake_gl(Node,warning_msg,"~p~n",[Self]),
-    ?line fake_gl(Node,warning_report,Report),
-    ?line nice_stop_node(Node),
-    ?line application:start(sasl),
-    ?line rb:start([{report_dir, rd()}]),
-    ?line rb:list(),
-    ?line true = (one_rb_lines([error]) > 1),
-    ?line true = (one_rb_lines([error_report]) > 1),
-    ?line 1 = one_rb_findstr([error],pid_to_list(Self)),
-    ?line 1 = one_rb_findstr([error_report],pid_to_list(Self)),
-    ?line 0 = one_rb_findstr([warning_msg],pid_to_list(Self)),
-    ?line 0 = one_rb_findstr([warning_report],pid_to_list(Self)),
-    ?line 0 = one_rb_findstr([info_msg],pid_to_list(Self)),
-    ?line 0 = one_rb_findstr([info_report],pid_to_list(Self)),
-    ?line 2 = one_rb_findstr([],pid_to_list(Self)),
-    ?line true = (one_rb_findstr([progress],"===") > 4),
-    ?line rb:stop(),
-    ?line application:stop(sasl),
-    ?line stop_node(Node),
+    clean_rd(),
+    Node = start_node(nn(),"+W e -boot start_sasl -sasl error_logger_mf_dir "++
+                      quote(rd())++" error_logger_mf_maxbytes 5000 "
+                      "error_logger_mf_maxfiles 5"),
+    Self = self(),
+    GL = group_leader(),
+    error = warning_map(Node),
+    Report = [{self,Self},{gl,GL},make_ref()],
+    fake_gl(Node,warning_msg,"~p~n",[Self]),
+    fake_gl(Node,warning_report,Report),
+    nice_stop_node(Node),
+    application:start(sasl),
+    rb:start([{report_dir, rd()}]),
+    rb:list(),
+    true = (one_rb_lines([error]) > 1),
+    true = (one_rb_lines([error_report]) > 1),
+    1 = one_rb_findstr([error],pid_to_list(Self)),
+    1 = one_rb_findstr([error_report],pid_to_list(Self)),
+    0 = one_rb_findstr([warning_msg],pid_to_list(Self)),
+    0 = one_rb_findstr([warning_report],pid_to_list(Self)),
+    0 = one_rb_findstr([info_msg],pid_to_list(Self)),
+    0 = one_rb_findstr([info_report],pid_to_list(Self)),
+    2 = one_rb_findstr([],pid_to_list(Self)),
+    true = (one_rb_findstr([progress],"===") > 4),
+    rb:stop(),
+    application:stop(sasl),
+    stop_node(Node),
     ok.
 
 rb_trunc() ->
-    ?line clean_rd(),
-    ?line Node = start_node(nn(),"-boot start_sasl -sasl error_logger_mf_dir "++
-		      quote(rd())++" error_logger_mf_maxbytes 5000 "
-		      "error_logger_mf_maxfiles 5"),
-    ?line Self = self(),
-    ?line GL = group_leader(),
-    ?line Report = [{self,Self},{gl,GL},make_ref()],
-    ?line fake_gl(Node,warning_msg,"~p~n",[Self]),
-    ?line fake_gl(Node,warning_report,Report),
-    ?line nice_stop_node(Node),
-    ?line application:start(sasl),
-    ?line {ok,File} = file:read_file(rf()),
-    ?line S=byte_size(File)-2,
-    ?line <<TFile:S/binary,_/binary>>=File,
-    ?line file:write_file(rf(),TFile),
-    ?line rb:start([{report_dir, rd()}]),
-    ?line rb:list(),
-    ?line true = (one_rb_lines([error]) =:= 0),
-    ?line true = (one_rb_lines([error_report]) =:= 0),
-    ?line 0 = one_rb_findstr([error],pid_to_list(Self)),
-    ?line 0 = one_rb_findstr([error_report],pid_to_list(Self)),
-    ?line 1 = one_rb_findstr([warning_msg],pid_to_list(Self)),
-    ?line 0 = one_rb_findstr([warning_report],pid_to_list(Self)),
-    ?line 0 = one_rb_findstr([info_msg],pid_to_list(Self)),
-    ?line 0 = one_rb_findstr([info_report],pid_to_list(Self)),
-    ?line 1 = one_rb_findstr([],pid_to_list(Self)),
-    ?line true = (one_rb_findstr([progress],"===") > 4),
-    ?line rb:stop(),
-   ?line  application:stop(sasl),
-    ?line stop_node(Node),
+    clean_rd(),
+    Node = start_node(nn(),"-boot start_sasl -sasl error_logger_mf_dir "++
+                      quote(rd())++" error_logger_mf_maxbytes 5000 "
+                      "error_logger_mf_maxfiles 5"),
+    Self = self(),
+    GL = group_leader(),
+    Report = [{self,Self},{gl,GL},make_ref()],
+    fake_gl(Node,warning_msg,"~p~n",[Self]),
+    fake_gl(Node,warning_report,Report),
+    nice_stop_node(Node),
+    application:start(sasl),
+    {ok,File} = file:read_file(rf()),
+    S=byte_size(File)-2,
+    <<TFile:S/binary,_/binary>>=File,
+    file:write_file(rf(),TFile),
+    rb:start([{report_dir, rd()}]),
+    rb:list(),
+    true = (one_rb_lines([error]) =:= 0),
+    true = (one_rb_lines([error_report]) =:= 0),
+    0 = one_rb_findstr([error],pid_to_list(Self)),
+    0 = one_rb_findstr([error_report],pid_to_list(Self)),
+    1 = one_rb_findstr([warning_msg],pid_to_list(Self)),
+    0 = one_rb_findstr([warning_report],pid_to_list(Self)),
+    0 = one_rb_findstr([info_msg],pid_to_list(Self)),
+    0 = one_rb_findstr([info_report],pid_to_list(Self)),
+    1 = one_rb_findstr([],pid_to_list(Self)),
+    true = (one_rb_findstr([progress],"===") > 4),
+    rb:stop(),
+    application:stop(sasl),
+    stop_node(Node),
     ok.
 
 rb_utc() ->
-    ?line clean_rd(),
-    ?line Node = start_node(nn(),"-boot start_sasl -sasl error_logger_mf_dir "++
-		      quote(rd())++" error_logger_mf_maxbytes 5000 "
-		      "error_logger_mf_maxfiles 5 -sasl utc_log true"),
-    ?line Self = self(),
-    ?line GL = group_leader(),
-    ?line Report = [{self,Self},{gl,GL},make_ref()],
-    ?line fake_gl(Node,warning_msg,"~p~n",[Self]),
-    ?line fake_gl(Node,warning_report,Report),
-    ?line nice_stop_node(Node),
-    ?line application:stop(sasl),
-    ?line UtcLog=case application:get_env(sasl,utc_log) of
-		     {ok,true} ->
-			 true;
-		     _AllOthers ->
-			 application:set_env(sasl,utc_log,true),
-			 false
-	   end,
-    ?line application:start(sasl),
-    ?line rb:start([{report_dir, rd()}]),
-    ?line rb:list(),
-    ?line Pr=one_rb_findstr([progress],"==="),
-    ?line Wm=one_rb_findstr([warning_msg],"==="),
-    ?line Wr=one_rb_findstr([warning_report],"==="),
-    ?line Sum=Pr+Wm+Wr,
-    ?line Sum=one_rb_findstr([],"UTC"),
-    ?line rb:stop(),
-    ?line application:stop(sasl),
-    ?line application:set_env(sasl,utc_log,UtcLog),
-    ?line stop_node(Node),
+    clean_rd(),
+    Node = start_node(nn(),"-boot start_sasl -sasl error_logger_mf_dir "++
+                      quote(rd())++" error_logger_mf_maxbytes 5000 "
+                      "error_logger_mf_maxfiles 5 -sasl utc_log true"),
+    Self = self(),
+    GL = group_leader(),
+    Report = [{self,Self},{gl,GL},make_ref()],
+    fake_gl(Node,warning_msg,"~p~n",[Self]),
+    fake_gl(Node,warning_report,Report),
+    nice_stop_node(Node),
+    application:stop(sasl),
+    UtcLog=case application:get_env(sasl,utc_log) of
+               {ok,true} ->
+                   true;
+               _AllOthers ->
+                   application:set_env(sasl,utc_log,true),
+                   false
+           end,
+    application:start(sasl),
+    rb:start([{report_dir, rd()}]),
+    rb:list(),
+    Pr=one_rb_findstr([progress],"==="),
+    Wm=one_rb_findstr([warning_msg],"==="),
+    Wr=one_rb_findstr([warning_report],"==="),
+    Sum=Pr+Wm+Wr,
+    Sum=one_rb_findstr([],"UTC"),
+    rb:stop(),
+    application:stop(sasl),
+    application:set_env(sasl,utc_log,UtcLog),
+    stop_node(Node),
     ok.
     
 file_utc() ->
-    ?line file:delete(lf()),
-    ?line SS="-stdlib utc_log true -kernel error_logger "++ oquote("{file,"++iquote(lf())++"}"),
+    file:delete(lf()),
+    SS="-stdlib utc_log true -kernel error_logger "++ oquote("{file,"++iquote(lf())++"}"),
     %erlang:display(SS),
-    ?line Node = start_node(nn(),SS),
+    Node = start_node(nn(),SS),
     %erlang:display(rpc:call(Node,application,get_env,[kernel,error_logger])),
-    ?line Self = self(),
-    ?line GL = group_leader(),
-    ?line fake_gl(Node,error_msg,"~p~n",[Self]),
-    ?line fake_gl(Node,warning_msg,"~p~n",[Self]),
-    ?line fake_gl(Node,info_msg,"~p~n",[Self]),
-    ?line Report = [{self,Self},{gl,GL},make_ref()],
-    ?line fake_gl(Node,error_report,Report),
-    ?line fake_gl(Node,warning_report,Report),
-    ?line fake_gl(Node,info_report,Report),
-    ?line nice_stop_node(Node),
-    ?line receive after 5000 -> ok end, % Let the node die, needed
-    ?line 6 = findstr("UTC",lf()),
-    ?line 2 = findstr("WARNING",lf()),
-    ?line 2 = findstr("ERROR",lf()),
-    ?line 2 = findstr("INFO",lf()),
-    ?line stop_node(Node),
+    Self = self(),
+    GL = group_leader(),
+    fake_gl(Node,error_msg,"~p~n",[Self]),
+    fake_gl(Node,warning_msg,"~p~n",[Self]),
+    fake_gl(Node,info_msg,"~p~n",[Self]),
+    Report = [{self,Self},{gl,GL},make_ref()],
+    fake_gl(Node,error_report,Report),
+    fake_gl(Node,warning_report,Report),
+    fake_gl(Node,info_report,Report),
+    nice_stop_node(Node),
+    receive after 5000 -> ok end, % Let the node die, needed
+    6 = findstr("UTC",lf()),
+    2 = findstr("WARNING",lf()),
+    2 = findstr("ERROR",lf()),
+    2 = findstr("INFO",lf()),
+    stop_node(Node),
     ok.
diff --git a/lib/tools/src/cover.erl b/lib/tools/src/cover.erl
index 71e17e0ba1..3cffa093dc 100644
--- a/lib/tools/src/cover.erl
+++ b/lib/tools/src/cover.erl
@@ -1017,14 +1017,24 @@ load_compiled([{Module,File,Binary,InitialTable}|Compiled],Acc) ->
     %% Make sure the #bump{} records are available *before* the
     %% module is loaded.
     insert_initial_data(InitialTable),
-    NewAcc = 
-	case code:load_binary(Module, ?TAG, Binary) of
-	    {module,Module} ->
-		add_compiled(Module, File, Acc);
-	    _  ->
-                do_clear(Module),
-		Acc
-	end,
+    Sticky = case code:is_sticky(Module) of
+                 true ->
+                     code:unstick_mod(Module),
+                     true;
+                 false ->
+                     false
+             end,
+    NewAcc = case code:load_binary(Module, ?TAG, Binary) of
+                 {module,Module} ->
+                     add_compiled(Module, File, Acc);
+                 _  ->
+                     do_clear(Module),
+                     Acc
+             end,
+    case Sticky of
+        true -> code:stick_mod(Module);
+        false -> ok
+    end,
     load_compiled(Compiled,NewAcc);
 load_compiled([],Acc) ->
     Acc.