[reltool] Change ~s to ~ts and ~p to ~tp when appropriate

8 files changed, 98 insertions, 101 deletions

diff --git a/lib/reltool/src/reltool.erl b/lib/reltool/src/reltool.erl
index 2bdf222aa0..8ab2c2399e 100644
--- a/lib/reltool/src/reltool.erl
+++ b/lib/reltool/src/reltool.erl
@@ -1,7 +1,7 @@
 %%
 %% %CopyrightBegin%
 %%
-%% Copyright Ericsson AB 2009-2012. All Rights Reserved.
+%% Copyright Ericsson AB 2009-2013. All Rights Reserved.
 %%
 %% The contents of this file are subject to the Erlang Public License,
 %% Version 1.1, (the "License"); you may not use this file except in
@@ -120,7 +120,7 @@ apply_fun(Pid, false, Fun) ->
 apply_fun(Pid, true, Fun) ->
     case get_status(Pid) of
 	{ok, Warnings} ->
-	    [io:format("~p: ~s\n", [?APPLICATION, W]) || W <- Warnings],
+	    [io:format("~w: ~ts\n", [?APPLICATION, W]) || W <- Warnings],
 	    apply_fun(Pid, false, Fun);
 	{error, _Reason} = Error ->
 	    stop(Pid),
diff --git a/lib/reltool/src/reltool_app_win.erl b/lib/reltool/src/reltool_app_win.erl
index 6cd0d2f90b..81ab1687fb 100644
--- a/lib/reltool/src/reltool_app_win.erl
+++ b/lib/reltool/src/reltool_app_win.erl
@@ -1,7 +1,7 @@
 %%
 %% %CopyrightBegin%
 %%
-%% Copyright Ericsson AB 2009-2012. All Rights Reserved.
+%% Copyright Ericsson AB 2009-2013. All Rights Reserved.
 %%
 %% The contents of this file are subject to the Erlang Public License,
 %% Version 1.1, (the "License"); you may not use this file except in
@@ -173,7 +173,7 @@ loop(#state{xref_pid = Xref, common = C, app = App} = S) ->
 						    S#state.mod_wins)},
             ?MODULE:loop(S2);
         Msg ->
-            error_logger:format("~p~p got unexpected message:\n\t~p\n",
+            error_logger:format("~w~w got unexpected message:\n\t~p\n",
                                 [?MODULE, self(), Msg]),
             ?MODULE:loop(S)
     end.
@@ -181,7 +181,7 @@ loop(#state{xref_pid = Xref, common = C, app = App} = S) ->
 exit_warning({'EXIT', _Pid, shutdown}) ->
     ok;
 exit_warning({'EXIT', _Pid, _Reason} = Msg) ->
-    error_logger:format("~p~p got unexpected message:\n\t~p\n",
+    error_logger:format("~w~w got unexpected message:\n\t~p\n",
 			[?MODULE, self(), Msg]).
 
 create_window(#state{app = App} = S) ->
@@ -627,7 +627,7 @@ handle_event(#state{sys = Sys, app = App} = S, Wx) ->
             Items = reltool_utils:get_items(ListCtrl),
 	    handle_mod_button(S, Items, Action);
         _ ->
-            error_logger:format("~p~p got unexpected app event from "
+            error_logger:format("~w~w got unexpected app event from "
 				"wx:\n\t~p\n",
                                 [?MODULE, self(), Wx]),
             S
@@ -674,8 +674,8 @@ move_mod(App, {_ItemNo, ModStr}, Action) ->
 	    blacklist_del ->
 		undefined;
 	    _ ->
-		error_logger:format("~p~p got unexpected mod "
-				    "button event: ~p\n\t ~p\n",
+		error_logger:format("~w~w got unexpected mod "
+				    "button event: ~w\n\t ~p\n",
 				    [?MODULE, self(), ModName, Action]),
 		M#mod.incl_cond
 	end,
diff --git a/lib/reltool/src/reltool_fgraph_win.erl b/lib/reltool/src/reltool_fgraph_win.erl
index b0deb1bab2..66bc2b5ab3 100644
--- a/lib/reltool/src/reltool_fgraph_win.erl
+++ b/lib/reltool/src/reltool_fgraph_win.erl
@@ -1,7 +1,7 @@
 %%
 %% %CopyrightBegin%
 %%
-%% Copyright Ericsson AB 2009-2010. All Rights Reserved.
+%% Copyright Ericsson AB 2009-2013. All Rights Reserved.
 %%
 %% The contents of this file are subject to the Erlang Public License,
 %% Version 1.1, (the "License"); you may not use this file except in
@@ -525,7 +525,7 @@ loop(S, G) ->
 	    exit(Reason);
 
         Other ->
-            error_logger:format("~p~p got unexpected message:\n\t~p\n",
+            error_logger:format("~w~w got unexpected message:\n\t~p\n",
                                 [?MODULE, self(), Other]),
             loop(S, G)
     end.
diff --git a/lib/reltool/src/reltool_mod_win.erl b/lib/reltool/src/reltool_mod_win.erl
index a6abf2deb3..b0193a2ae4 100644
--- a/lib/reltool/src/reltool_mod_win.erl
+++ b/lib/reltool/src/reltool_mod_win.erl
@@ -130,7 +130,7 @@ do_init(Parent, WxEnv, Xref, RelPid, C, ModName) ->
 loop(#state{xref_pid = Xref, common = C, mod = Mod} = S) ->
     receive
 	Msg ->
-	    %% io:format("~s~p -> ~p\n", [S#state.name, self(), Msg]),
+	    %% io:format("~ts~w -> ~p\n", [S#state.name, self(), Msg]),
 	    case Msg of
 		{system, From, SysMsg} ->
 		    Dbg = C#common.sys_debug,
@@ -170,7 +170,7 @@ loop(#state{xref_pid = Xref, common = C, mod = Mod} = S) ->
 		    S2 = handle_event(S, Wx),
 		    ?MODULE:loop(S2);
 		_ ->
-		    error_logger:format("~p~p got unexpected message:\n\t~p\n",
+		    error_logger:format("~w~w got unexpected message:\n\t~p\n",
 					[?MODULE, self(), Msg]),
 		    ?MODULE:loop(S)
 	    end
@@ -485,7 +485,7 @@ handle_event(#state{xref_pid = Xref} = S, Wx) ->
 	    wxWindow:setFocus(ObjRef),
 	    S;
 	_ ->
-            error_logger:format("~p~p got unexpected mod event from "
+            error_logger:format("~w~w got unexpected mod event from "
 				"wx:\n\t~p\n",
                                 [?MODULE, self(), Wx]),
             S
diff --git a/lib/reltool/src/reltool_server.erl b/lib/reltool/src/reltool_server.erl
index c56e29152d..5e25f22a6f 100644
--- a/lib/reltool/src/reltool_server.erl
+++ b/lib/reltool/src/reltool_server.erl
@@ -1,7 +1,7 @@
 %%
 %% %CopyrightBegin%
 %%
-%% Copyright Ericsson AB 2009-2012. All Rights Reserved.
+%% Copyright Ericsson AB 2009-2013. All Rights Reserved.
 %%
 %% The contents of this file are subject to the Erlang Public License,
 %% Version 1.1, (the "License"); you may not use this file except in
@@ -399,12 +399,12 @@ loop(#state{sys = Sys} = S) ->
         {'EXIT', Pid, Reason} when Pid =:= S#state.parent_pid ->
             exit(Reason);
         {call, ReplyTo, Ref, Msg} when is_pid(ReplyTo), is_reference(Ref) ->
-            error_logger:format("~p~p got unexpected call:\n\t~p\n",
+            error_logger:format("~w~w got unexpected call:\n\t~p\n",
                                 [?MODULE, self(), Msg]),
             reltool_utils:reply(ReplyTo, Ref, {error, {invalid_call, Msg}}),
             ?MODULE:loop(S);
         Msg ->
-            error_logger:format("~p~p got unexpected message:\n\t~p\n",
+            error_logger:format("~w~w got unexpected message:\n\t~p\n",
                                 [?MODULE, self(), Msg]),
             ?MODULE:loop(S)
     end.
@@ -422,7 +422,7 @@ do_set_apps(#state{sys = Sys} = S, ChangedApps) ->
 %% 2) removing #app records if no configurable fields are set
 %% 3) keeping #app records that are not changed
 app_update_config([#app{name=Name,is_escript={inlined,Escript}}|_],_SysApps) ->
-    reltool_utils:throw_error("Application ~p is inlined in ~p. Can not change "
+    reltool_utils:throw_error("Application ~w is inlined in ~w. Can not change "
 			      "configuration for an inlined application.",
 			      [Name,Escript]);
 app_update_config([Config|Configs],SysApps) ->
@@ -580,8 +580,8 @@ apps_in_rel(#rel{name = RelName, rel_apps = RelApps}, Apps) ->
 					IA;
 				    false ->
 					reltool_utils:throw_error(
-					  "Release ~p uses non existing "
-					  "application ~p",
+					  "Release ~tp uses non existing "
+					  "application ~w",
 					  [RelName,RA#rel_app.name])
 				end;
 			    IA ->
@@ -602,7 +602,7 @@ more_apps_in_rels([{RelName, AppName} = RA | RelApps], Apps, Acc) ->
 		    more_apps_in_rels(RelApps, Apps, Acc2);
 		false ->
 		    reltool_utils:throw_error(
-		      "Release ~p uses non existing application ~p",
+		      "Release ~tp uses non existing application ~w",
 		      [RelName,AppName])
 	    end
     end;
@@ -640,7 +640,7 @@ app_init_is_included(#state{app_tab = AppTab, mod_tab = ModTab, sys=Sys},
 		{undefined, false, false, Status};
             {exclude, [RelName | _]} -> % App is included in at least one rel
 		reltool_utils:throw_error(
-		  "Application ~p is used in release ~p and cannot be excluded",
+		  "Application ~w is used in release ~tp and cannot be excluded",
 		  [AppName,RelName]);
             {derived, []} ->
 		{undefined, undefined, undefined, Status};
@@ -665,7 +665,7 @@ app_init_is_included(#state{app_tab = AppTab, mod_tab = ModTab, sys=Sys},
     Status3.
 
 mod_init_is_included(ModTab, M, ModCond, AppCond, Default, Status) ->
-    %% print(M#mod.name, hipe, "incl_cond -> ~p\n", [AppCond]),
+    %% print(M#mod.name, hipe, "incl_cond -> ~w\n", [AppCond]),
     IsIncl =
         case AppCond of
             include ->
@@ -677,7 +677,7 @@ mod_init_is_included(ModTab, M, ModCond, AppCond, Default, Status) ->
 		    derived ->
 			undefined;
                     undefined ->
-                        %% print(M#mod.name, hipe, "mod_cond -> ~p\n",
+                        %% print(M#mod.name, hipe, "mod_cond -> ~w\n",
 			%%       [ModCond]),
                         case ModCond of
                             all     -> true;
@@ -711,23 +711,23 @@ mod_init_is_included(ModTab, M, ModCond, AppCond, Default, Status) ->
 		    {false,_} ->
 			ets:insert(ModTab, M2),
 			reltool_utils:add_warning(
-			  "Module ~p exists in applications ~p and ~p. "
-			  "Using module from application ~p.",
+			  "Module ~w exists in applications ~w and ~w. "
+			  "Using module from application ~w.",
 			  [M#mod.name, Existing#mod.app_name,
 			   M#mod.app_name, M#mod.app_name],
 			  Status);
 		    {_,false} ->
 			%% Don't insert in ModTab - using Existing
 			reltool_utils:add_warning(
-			  "Module ~p exists in applications ~p and ~p. "
-			  "Using module from application ~p.",
+			  "Module ~w exists in applications ~w and ~w. "
+			  "Using module from application ~w.",
 			  [M#mod.name, Existing#mod.app_name,
 			   M#mod.app_name,Existing#mod.app_name],
 			  Status);
 		    {_,_} ->
 			reltool_utils:throw_error(
-			  "Module ~p potentially included by two different "
-			  "applications: ~p and ~p.",
+			  "Module ~w potentially included by two different "
+			  "applications: ~w and ~w.",
 			  [M#mod.name,Existing#mod.app_name,M#mod.app_name])
 		end;
 	    [] ->
@@ -735,7 +735,7 @@ mod_init_is_included(ModTab, M, ModCond, AppCond, Default, Status) ->
 		Status
 	end,
 
-    %% print(M#mod.name, hipe, "~p -> ~p\n", [M2, IsIncl]),
+    %% print(M#mod.name, hipe, "~p -> ~w\n", [M2, IsIncl]),
     {M2,Status2}.
 
 false_to_undefined(Bool) ->
@@ -888,7 +888,7 @@ mod_recap_dependencies(S, A, [#mod{name = ModName}=M1 | Mods], Acc, IsIncl) ->
     case ets:lookup(S#state.mod_tab, ModName) of
 	[M2] when M2#mod.app_name=:=A#app.name ->
 	    ModStatus = do_get_status(M2),
-	    %% print(M2#mod.name, hipe, "status -> ~p\n", [ModStatus]),
+	    %% print(M2#mod.name, hipe, "status -> ~w\n", [ModStatus]),
 	    {IsIncl2, M3} =
 		case M2#mod.is_included of
 		    true ->
@@ -910,8 +910,8 @@ mod_recap_dependencies(S, A, [#mod{name = ModName}=M1 | Mods], Acc, IsIncl) ->
 	    %% A module is potensially included by multiple
 	    %% applications. This is not allowed!
 	    reltool_utils:throw_error(
-	      "Module ~p potentially included by two different applications: "
-	      "~p and ~p", [ModName,A#app.name, " and ", M2#mod.app_name, "."])
+	      "Module ~w potentially included by two different applications: "
+	      "~w and ~w.", [ModName,A#app.name, M2#mod.app_name])
     end;
 mod_recap_dependencies(_S, _A, [], Acc, IsIncl) ->
     {lists:reverse(Acc), IsIncl}.
@@ -939,7 +939,7 @@ verify_config(#state{app_tab=AppTab, sys=#sys{boot_rel = BootRel, rels = Rels}},
 			Rels);
         false ->
 	    reltool_utils:throw_error(
-	      "Release ~p is mandatory (used as boot_rel)",[BootRel])
+	      "Release ~tp is mandatory (used as boot_rel)",[BootRel])
     end.
 
 check_app(AppTab, {RelName, AppName}, Status) ->
@@ -949,7 +949,7 @@ check_app(AppTab, {RelName, AppName}, Status) ->
 	    Status;
 	_ ->
 	    reltool_utils:throw_error(
-	      "Release ~p uses non included application ~p",[RelName,AppName])
+	      "Release ~tp uses non included application ~w",[RelName,AppName])
     end.
 
 check_rel(RelName, RelApps, Status) ->
@@ -960,8 +960,8 @@ check_rel(RelName, RelApps, Status) ->
                         Acc;
                     false ->
 			reltool_utils:throw_error(
-			  "Mandatory application ~p is not included in "
-			  "release ~p", [AppName,RelName])
+			  "Mandatory application ~w is not included in "
+			  "release ~tp", [AppName,RelName])
                 end
         end,
     Mandatory = [kernel, stdlib],
@@ -1015,8 +1015,8 @@ refresh_app(#app{name = AppName,
 			lists:foldl(
 			  fun(M,S) ->
 				  reltool_utils:add_warning(
-				    "Module ~p duplicated in app file for "
-				    "application ~p.", [M, AppName], S)
+				    "Module ~w duplicated in app file for "
+				    "application ~w.", [M, AppName], S)
 			  end,
 			  Status3,
 			  DuplicatedMods)
@@ -1074,18 +1074,18 @@ read_app_info(AppFileOrBin, AppFile, AppName, DefaultVsn, Status) ->
             parse_app_info(AppFile, Info, AI, Status);
         {ok, _BadApp} ->
             {missing_app_info(DefaultVsn),
-	     reltool_utils:add_warning("~p: Illegal contents in app file ~p, "
+	     reltool_utils:add_warning("~w: Illegal contents in app file ~tp, "
 				       "application tuple with arity 3 expected.",
 				       [AppName,AppFile],
 				       Status)};
         {error, Text} when Text =:= EnoentText ->
 	    {missing_app_info(DefaultVsn),
-	     reltool_utils:add_warning("~p: Missing app file ~p.",
+	     reltool_utils:add_warning("~w: Missing app file ~tp.",
 				       [AppName,AppFile],
 				       Status)};
         {error, Text} ->
             {missing_app_info(DefaultVsn),
-	     reltool_utils:add_warning("~p: Cannot parse app file ~p (~p).",
+	     reltool_utils:add_warning("~w: Cannot parse app file ~tp (~tp).",
 				       [AppName,AppFile,Text],
 				       Status)}
     end.
@@ -1122,7 +1122,7 @@ parse_app_info(File, [{Key, Val} | KeyVals], AI, Status) ->
 			   Status);
         _ ->
 	    Status2 =
-		reltool_utils:add_warning("Unexpected item ~p in app file ~p.",
+		reltool_utils:add_warning("Unexpected item ~p in app file ~tp.",
 					  [Key,File],
 					  Status),
 	    parse_app_info(File, KeyVals, AI, Status2)
@@ -1212,7 +1212,7 @@ wait_for_processto_die(Ref, Pid, File) ->
 	{'DOWN', Ref, _Type, _Object, _Info} ->
 	    ok
     after timer:seconds(30) ->
-	    error_logger:error_msg("~p(~p): Waiting for process ~p to die ~p\n",
+	    error_logger:error_msg("~w(~w): Waiting for process ~w to die ~tp\n",
 				   [?MODULE, ?LINE, Pid, File]),
 	    wait_for_processto_die(Ref, Pid, File)
     end.
@@ -1223,7 +1223,7 @@ add_missing_mods(AppName, EbinMods, AppModNames) ->
     [missing_mod(ModName, AppName) || ModName <- MissingModNames].
 
 missing_mod(ModName, AppName) ->
-    %% io:format("Missing: ~p -> ~p\n", [AppName, ModName]),
+    %% io:format("Missing: ~w -> ~w\n", [AppName, ModName]),
     #mod{name = ModName,
          app_name = AppName,
          incl_cond = undefined,
@@ -1323,7 +1323,7 @@ read_config(OldSys, Filename) when is_list(Filename) ->
         {ok, Content} ->
 	    reltool_utils:throw_error("Illegal file content: ~p",[Content]);
         {error, Reason} ->
-	    reltool_utils:throw_error("Illegal config file ~p: ~s",
+	    reltool_utils:throw_error("Illegal config file ~tp: ~ts",
 				      [Filename,file:format_error(Reason)])
     end;
 read_config(OldSys, {sys, KeyVals}) ->
@@ -1341,7 +1341,7 @@ read_config(OldSys, {sys, KeyVals}) ->
 	    NewSys2;
 	false ->
 	    reltool_utils:throw_error(
-	      "Release ~p is mandatory (used as boot_rel)",
+	      "Release ~tp is mandatory (used as boot_rel)",
 	      [NewSys2#sys.boot_rel])
     end;
 read_config(_OldSys, BadConfig) ->
@@ -1510,7 +1510,7 @@ decode(#app{} = App, [{Key, Val} | KeyVals]) ->
 				active_dir = Dir,
 				sorted_dirs = [Dir]};
 		    false ->
-			reltool_utils:throw_error("Illegal lib dir for ~p: ~p",
+			reltool_utils:throw_error("Illegal lib dir for ~w: ~p",
 						  [App#app.name, Val])
 		end;
 	    SelectVsn when SelectVsn=:=vsn; SelectVsn=:=lib_dir ->
@@ -1642,7 +1642,7 @@ patch_erts_version(RootDir, Apps, Status) ->
             end;
         false ->
 	    reltool_utils:throw_error(
-	      "erts cannot be found in the root directory ~p", [RootDir])
+	      "erts cannot be found in the root directory ~tp", [RootDir])
     end.
 
 libs_to_dirs(RootDir, LibDirs) ->
@@ -1669,10 +1669,10 @@ libs_to_dirs(RootDir, LibDirs) ->
 						   lists:prefix("erts", F)],
                     app_dirs2(AllLibDirs, [ErtsFiles]);
                 [Duplicate | _] ->
-		    reltool_utils:throw_error("Duplicate library: ~p",[Duplicate])
+		    reltool_utils:throw_error("Duplicate library: ~tp",[Duplicate])
             end;
         {error, Reason} ->
-	    reltool_utils:throw_error("Missing root library ~p: ~s",
+	    reltool_utils:throw_error("Missing root library ~tp: ~ts",
 				      [RootDir,file:format_error(Reason)])
     end.
 
@@ -1697,7 +1697,7 @@ app_dirs2([Lib | Libs], Acc) ->
             Files2 = lists:zf(Filter, Files),
             app_dirs2(Libs, [Files2 | Acc]);
         {error, Reason} ->
-	    reltool_utils:throw_error("Illegal library ~p: ~s",
+	    reltool_utils:throw_error("Illegal library ~tp: ~ts",
 				      [Lib, file:format_error(Reason)])
     end;
 app_dirs2([], Acc) ->
@@ -1756,7 +1756,7 @@ escripts_to_apps([Escript | Escripts], Apps, Status) ->
 	    {ok, AF} ->
 		AF;
 	    {error, Reason1} ->
-		reltool_utils:throw_error("Illegal escript ~p: ~p",
+		reltool_utils:throw_error("Illegal escript ~tp: ~p",
 					  [Escript,Reason1])
 	end,
 
@@ -1838,7 +1838,7 @@ escripts_to_apps([Escript | Escripts], Apps, Status) ->
 				      Status2),
 	    escripts_to_apps(Escripts, Apps2, Status3);
 	{error, Reason2} ->
-	    reltool_utils:throw_error("Illegal escript ~p: ~p",
+	    reltool_utils:throw_error("Illegal escript ~tp: ~p",
 				      [Escript,Reason2])
     end;
 escripts_to_apps([], Apps, Status) ->
@@ -1901,7 +1901,7 @@ init_escript_app(AppName, EscriptAppName, Dir, Info, Mods, Apps, Status) ->
     case lists:keymember(AppName, #app.name, Apps) of
         true ->
 	    reltool_utils:throw_error(
-	      "~p: Application name clash. Escript ~p contains application ~p.",
+	      "~w: Application name clash. Escript ~tp contains application ~tp.",
 	      [AppName,Dir,AppName]);
         false ->
             {App2, Status}
@@ -1986,7 +1986,7 @@ ensure_app_info(#app{is_escript = IsEscript, active_dir = Dir, info = Info},
     %% Escript or application which is inlined in an escript
     {Info, Dir, Status};
 ensure_app_info(#app{name = Name, sorted_dirs = []}, _Status) ->
-    reltool_utils:throw_error("~p: : Missing application directory.",[Name]);
+    reltool_utils:throw_error("~w: : Missing application directory.",[Name]);
 ensure_app_info(#app{name = Name,
 		     vsn = Vsn,
 		     use_selected_vsn = UseSelectedVsn,
@@ -2011,8 +2011,8 @@ ensure_app_info(#app{name = Name,
                 Status2;
             [BadVsn | _] ->
 		reltool_utils:throw_error(
-		  "~p: Application version clash. "
-		  "Multiple directories contains version ~p.",
+		  "~w: Application version clash. "
+		  "Multiple directories contains version ~tp.",
 		  [Name,BadVsn])
         end,
     FirstInfo = hd(AllInfo),
@@ -2034,8 +2034,8 @@ ensure_app_info(#app{name = Name,
 			    {Info, VsnDir, Status3};
 			false ->
 			    reltool_utils:throw_error(
-			      "~p: No application directory contains "
-			      "selected version ~p", [Name,Vsn])
+			      "~w: No application directory contains "
+			      "selected version ~tp", [Name,Vsn])
 		    end
 	    end;
 	true ->
diff --git a/lib/reltool/src/reltool_sys_win.erl b/lib/reltool/src/reltool_sys_win.erl
index 8e182d02ed..b5d54e6d3e 100644
--- a/lib/reltool/src/reltool_sys_win.erl
+++ b/lib/reltool/src/reltool_sys_win.erl
@@ -1,7 +1,7 @@
 %%
 %% %CopyrightBegin%
 %%
-%% Copyright Ericsson AB 2009-2012. All Rights Reserved.
+%% Copyright Ericsson AB 2009-2013. All Rights Reserved.
 %%
 %% The contents of this file are subject to the Erlang Public License,
 %% Version 1.1, (the "License"); you may not use this file except in
@@ -181,7 +181,7 @@ do_init([{safe_config, Safe}, {parent, Parent} | Options]) ->
     end.
 
 restart_server_safe_config(true,Parent,Reason) ->
-    io:format("~p(~p): <ERROR> ~p\n", [?MODULE, ?LINE, Reason]),
+    io:format("~w(~w): <ERROR> ~p\n", [?MODULE, ?LINE, Reason]),
     proc_lib:init_ack(Parent, {error,Reason});
 restart_server_safe_config(false,Parent,Reason) ->
     wx:new(),
@@ -198,7 +198,7 @@ restart_server_safe_config(false,Parent,Reason) ->
 	?wxID_OK ->
 	    do_init([{safe_config,true},{parent,Parent},?safe_config]);
 	?wxID_CANCEL ->
-	    io:format("~p(~p): <ERROR> ~p\n", [?MODULE, ?LINE, Reason]),
+	    io:format("~w(~w): <ERROR> ~p\n", [?MODULE, ?LINE, Reason]),
 	    proc_lib:init_ack(Parent,{error,Reason})
     end.
 
@@ -211,7 +211,7 @@ exit_dialog(Warnings) ->
         ?wxID_OK ->
 	    ok;
         ?wxID_CANCEL  ->
-	    io:format("~p(~p): <ERROR> ~s\n", [?MODULE, ?LINE, Details]),
+	    io:format("~w(~w): <ERROR> ~ts\n", [?MODULE, ?LINE, Details]),
 	    exit(Details)
     end.
 
@@ -249,7 +249,7 @@ loop(S) ->
 				    WWs2 = lists:delete(ObjRef, WWs),
 				    ?MODULE:loop(S#state{warning_wins = WWs2});
 				false ->
-				    error_logger:format("~p~p got unexpected "
+				    error_logger:format("~w~w got unexpected "
 							"message:\n\t~p\n",
 							[?MODULE, self(), Msg]),
 				    ?MODULE:loop(S)
@@ -291,7 +291,7 @@ loop(S) ->
 					   S#state.app_wins),
             ?MODULE:loop(S#state{fgraph_wins = FWs, app_wins = AWs});
         Msg ->
-            error_logger:format("~p~p got unexpected message:\n\t~p\n",
+            error_logger:format("~w~w got unexpected message:\n\t~p\n",
                                 [?MODULE, self(), Msg]),
             ?MODULE:loop(S)
     end.
@@ -315,7 +315,7 @@ handle_child_exit({'EXIT', Pid, _Reason} = Exit, FWs, AWs) ->
 msg_warning({'EXIT', _Pid, shutdown}, Type) when Type =/= unknown ->
     ok;
 msg_warning(Exit, Type) ->
-    error_logger:format("~p~p got unexpected message (~p):\n\t~p\n",
+    error_logger:format("~w~w got unexpected message (~w):\n\t~p\n",
                         [?MODULE, self(), Type, Exit]).
 
 create_window(S) ->
@@ -1161,7 +1161,7 @@ handle_system_event(#state{sys = Sys} = S,
     Sys2 = Sys#sys{incl_cond = AppCond},
     do_set_sys(S#state{sys = Sys2});
 handle_system_event(S, Event, ObjRef, UserData) ->
-    error_logger:format("~p~p got unexpected wx sys event to ~p "
+    error_logger:format("~w~w got unexpected wx sys event to ~p "
 			"with user data: ~p\n\t ~p\n",
                         [?MODULE, self(), ObjRef, UserData, Event]),
     S.
@@ -1177,13 +1177,13 @@ handle_source_event(S,
 		    _UserData) ->
     case wxTreeCtrl:getItemData(ObjRef, Item) of
         #root_data{dir = _Dir} ->
-            %% io:format("Root dialog: ~p\n", [Dir]),
+            %% io:format("Root dialog: ~tp\n", [Dir]),
             S;
         #lib_data{dir = _Dir} ->
-            %% io:format("Lib dialog: ~p\n", [Dir]),
+            %% io:format("Lib dialog: ~tp\n", [Dir]),
             S;
         #escript_data{file = _File} ->
-            %% io:format("Escript dialog: ~p\n", [File]),
+            %% io:format("Escript dialog: ~tp\n", [File]),
             S;
         #app_data{name = Name} ->
             do_open_app(S, Name);
@@ -1203,7 +1203,7 @@ handle_source_event(S,
         #escript_data{file = File} ->
             wx:batch(fun() -> escript_popup(S, File, Tree, Item) end);
         #app_data{name = Name} ->
-            io:format("App menu: ~p\n", [Name]),
+            io:format("App menu: ~tp\n", [Name]),
             S;
         undefined ->
             S
@@ -1223,7 +1223,7 @@ handle_app_event(S,
     Items = reltool_utils:get_items(ListCtrl),
     handle_app_button(S, Items, Action);
 handle_app_event(S, Event, ObjRef, UserData) ->
-    error_logger:format("~p~p got unexpected wx app event to "
+    error_logger:format("~w~w got unexpected wx app event to "
 			"~p with user data: ~p\n\t ~p\n",
                         [?MODULE, self(), ObjRef, UserData, Event]),
     S.
@@ -1267,7 +1267,7 @@ move_app(S, {_ItemNo, AppBase}, Action) ->
             blacklist_del ->
                 undefined;
             _ ->
-                error_logger:format("~p~p got unexpected app "
+                error_logger:format("~w~w got unexpected app "
 				    "button event: ~p ~p\n",
                                     [?MODULE, self(), Action, AppBase]),
                 OldApp#app.incl_cond
diff --git a/lib/reltool/src/reltool_target.erl b/lib/reltool/src/reltool_target.erl
index 1f4ce7226a..f7a5932b7b 100644
--- a/lib/reltool/src/reltool_target.erl
+++ b/lib/reltool/src/reltool_target.erl
@@ -296,7 +296,7 @@ do_gen_rel(#rel{name = RelName, vsn = RelVsn, rel_apps = RelApps},
 	     {ErtsName, Erts#app.vsn},
 	     [strip_rel_info(App, RelApps) || App <- MergedApps]};
 	false ->
-	    reltool_utils:throw_error("Mandatory application ~p is "
+	    reltool_utils:throw_error("Mandatory application ~w is "
 				      "not included",
                                       [ErtsName])
     end.
@@ -383,8 +383,8 @@ merge_app(RelName,
         [] ->
 	    App#app{app_type = Type2, info = Info#app_info{incl_apps = InclApps}};
         BadIncl ->
-            reltool_utils:throw_error("~p: These applications are "
-				      "used by release ~s but are "
+            reltool_utils:throw_error("~w: These applications are "
+				      "used by release ~ts but are "
 				      "missing as included_applications "
 				      "in the app file: ~p",
                                       [Name, RelName, BadIncl])
@@ -865,7 +865,7 @@ strip_sys_files(Relocatable, SysFiles, Apps, ExclRegexps) ->
 		case File of
 		    "erts" ->
 			reltool_utils:throw_error("This system is not installed. "
-						  "The directory ~s is missing.",
+						  "The directory ~ts is missing.",
 				    [Erts#app.label]);
 		    _ when File =:= Erts#app.label ->
 			replace_dyn_erl(Relocatable, Spec);
@@ -987,7 +987,7 @@ check_sys(Mandatory, SysFiles) ->
 do_check_sys(Prefix, Specs) ->
     case lookup_spec(Prefix, Specs) of
         [] ->
-            reltool_utils:throw_error("Mandatory system directory ~s "
+            reltool_utils:throw_error("Mandatory system directory ~ts "
 				      "is not included",
                                       [Prefix]);
         _ ->
@@ -1008,8 +1008,8 @@ lookup_spec(Prefix, Specs) ->
 safe_lookup_spec(Prefix, Specs) ->
     case lookup_spec(Prefix, Specs) of
         [] ->
-	    %% io:format("lookup fail ~s:\n\t~p\n", [Prefix, Specs]),
-            reltool_utils:throw_error("Mandatory system file ~s is "
+	    %% io:format("lookup fail ~ts:\n\t~p\n", [Prefix, Specs]),
+            reltool_utils:throw_error("Mandatory system file ~ts is "
 				      "not included", [Prefix]);
         Match ->
             Match
@@ -1053,7 +1053,7 @@ spec_lib_files(#sys{root_dir = RootDir,
 check_apps([Mandatory | Names], Apps) ->
     case lists:keymember(Mandatory, #app.name, Apps) of
         false ->
-            reltool_utils:throw_error("Mandatory application ~p is "
+            reltool_utils:throw_error("Mandatory application ~w is "
 				      "not included in ~p",
                                       [Mandatory, Apps]);
         true ->
@@ -1144,13 +1144,13 @@ spec_dir(Dir) ->
 		     Base,
 		     [spec_dir(filename:join([Dir, F])) || F <- Files]};
                 error ->
-                    reltool_utils:throw_error("list dir ~s failed", [Dir])
+                    reltool_utils:throw_error("list dir ~ts failed", [Dir])
             end;
         {ok, #file_info{type = regular}} ->
             %% Plain file
             {copy_file, Base};
         _ ->
-            reltool_utils:throw_error("read file info ~s failed", [Dir])
+            reltool_utils:throw_error("read file info ~ts failed", [Dir])
     end.
 
 spec_mod(Mod, DebugInfo) ->
@@ -1284,7 +1284,7 @@ do_eval_spec({archive, Archive, Options, Files},
         {ok, _} ->
             ok;
         {error, Reason} ->
-            reltool_utils:throw_error("create archive ~s failed: ~p",
+            reltool_utils:throw_error("create archive ~ts failed: ~p",
 				      [ArchiveFile, Reason])
     end;
 do_eval_spec({copy_file, File}, _OrigSourceDir, SourceDir, TargetDir) ->
@@ -1473,7 +1473,7 @@ do_install(RelName, TargetDir) ->
             ok = release_handler:create_RELEASES(TargetDir2, RelFile),
             ok;
         _ ->
-            reltool_utils:throw_error("~s: Illegal data file syntax", [DataFile])
+            reltool_utils:throw_error("~ts: Illegal data file syntax",[DataFile])
     end.
 
 nativename(Dir) ->
diff --git a/lib/reltool/src/reltool_utils.erl b/lib/reltool/src/reltool_utils.erl
index 87d28c7373..edccb889b1 100644
--- a/lib/reltool/src/reltool_utils.erl
+++ b/lib/reltool/src/reltool_utils.erl
@@ -431,7 +431,7 @@ scroll_size(ObjRef) ->
 safe_keysearch(Key, Pos, List, Mod, Line) ->
     case lists:keysearch(Key, Pos, List) of
         false ->
-            io:format("~p(~p): lists:keysearch(~p, ~p, ~p) -> false\n",
+            io:format("~w(~w): lists:keysearch(~p, ~w, ~p) -> false\n",
                       [Mod, Line, Key, Pos, List]),
             erlang:error({Mod, Line, lists, keysearch, [Key, Pos, List]});
         {value, Val} ->
@@ -463,7 +463,7 @@ create_dir(Dir) ->
             ok;
         {error, Reason} ->
             Text = file:format_error(Reason),
-            throw_error("create dir ~s: ~s", [Dir, Text])
+            throw_error("create dir ~ts: ~ts", [Dir, Text])
     end.
 
 list_dir(Dir) ->
@@ -472,7 +472,7 @@ list_dir(Dir) ->
 	    Files;
         error ->
             Text = file:format_error(enoent),
-            throw_error("list dir ~s: ~s", [Dir, Text])
+            throw_error("list dir ~ts: ~ts", [Dir, Text])
     end.
 
 read_file_info(File) ->
@@ -481,7 +481,7 @@ read_file_info(File) ->
 	    Info;
         {error, Reason} ->
             Text = file:format_error(Reason),
-            throw_error("read file info ~s: ~s", [File, Text])
+            throw_error("read file info ~ts: ~ts", [File, Text])
     end.
 
 write_file_info(File, Info) ->
@@ -490,7 +490,7 @@ write_file_info(File, Info) ->
 	    ok;
         {error, Reason} ->
             Text = file:format_error(Reason),
-            throw_error("write file info ~s: ~s", [File, Text])
+            throw_error("write file info ~ts: ~ts", [File, Text])
     end.
 
 read_file(File) ->
@@ -499,7 +499,7 @@ read_file(File) ->
 	    Bin;
         {error, Reason} ->
             Text = file:format_error(Reason),
-            throw_error("read file ~s: ~s", [File, Text])
+            throw_error("read file ~ts: ~ts", [File, Text])
     end.
 
 write_file(File, IoList) ->
@@ -508,7 +508,7 @@ write_file(File, IoList) ->
 	    ok;
         {error, Reason} ->
             Text = file:format_error(Reason),
-            throw_error("write file ~s: ~s", [File, Text])
+            throw_error("write file ~ts: ~ts", [File, Text])
     end.
 
 recursive_delete(Dir) ->
@@ -524,7 +524,7 @@ recursive_delete(Dir) ->
 		    ok;
 		{error, Reason} ->
 		    Text = file:format_error(Reason),
-		    throw_error("delete file ~s: ~s\n", [Dir, Text])
+		    throw_error("delete file ~ts: ~ts\n", [Dir, Text])
 	    end;
 	false ->
             delete(Dir, regular)
@@ -538,7 +538,7 @@ delete(File, Type) ->
             ok;
         {error, Reason} ->
             Text = file:format_error(Reason),
-            throw_error("delete file ~s: ~s\n", [File, Text])
+            throw_error("delete file ~ts: ~ts\n", [File, Text])
     end.
 
 do_delete(File, regular) ->
@@ -577,11 +577,11 @@ copy_file(From, To) ->
 		    ok;
 		{error, Reason} ->
 		    Text = file:format_error(Reason),
-		    throw_error("copy file ~s -> ~s: ~s\n", [From, To, Text])
+		    throw_error("copy file ~ts -> ~ts: ~ts\n", [From, To, Text])
 	    end;
 	error ->
 	    Text = file:format_error(enoent),
-	    throw_error("copy file ~s -> ~s: ~s\n", [From, To, Text])
+	    throw_error("copy file ~ts -> ~ts: ~ts\n", [From, To, Text])
     end.
 
 throw_error(Format, Args) ->
@@ -594,10 +594,7 @@ decode_regexps(Key, {add, Regexps}, Old) when is_list(Regexps) ->
 decode_regexps(_Key, {del, Regexps}, Old)  when is_list(Regexps) ->
     [Re || Re <- Old, not lists:member(Re#regexp.source, Regexps)];
 decode_regexps(Key, Regexps, _Old) when is_list(Regexps) ->
-    do_decode_regexps(Key, Regexps, []);
-decode_regexps(Key, Regexps, _Old) when is_list(Regexps) ->
-    Text = lists:flatten(io_lib:format("~p", [{Key, Regexps}])),
-    throw({error, "Illegal option: " ++ Text}).
+    do_decode_regexps(Key, Regexps, []).
 
 do_decode_regexps(Key, [Regexp | Regexps], Acc) ->
     case catch re:compile(Regexp, [unicode]) of