1 files changed, 15 insertions, 15 deletions

diff --git a/lib/stdlib/src/gen_statem.erl b/lib/stdlib/src/gen_statem.erl
index b5e9da1e66..1110d18af6 100644
--- a/lib/stdlib/src/gen_statem.erl
+++ b/lib/stdlib/src/gen_statem.erl
@@ -791,34 +791,34 @@ format_status(
 
 print_event(Dev, {in,Event}, {Name,State}) ->
     io:format(
-      Dev, "*DBG* ~p receive ~s in state ~p~n",
+      Dev, "*DBG* ~tp receive ~ts in state ~tp~n",
       [Name,event_string(Event),State]);
 print_event(Dev, {out,Reply,{To,_Tag}}, {Name,State}) ->
     io:format(
-      Dev, "*DBG* ~p send ~p to ~p from state ~p~n",
+      Dev, "*DBG* ~tp send ~tp to ~p from state ~tp~n",
       [Name,Reply,To,State]);
 print_event(Dev, {terminate,Reason}, {Name,State}) ->
     io:format(
-      Dev, "*DBG* ~p terminate ~p in state ~p~n",
+      Dev, "*DBG* ~tp terminate ~tp in state ~tp~n",
       [Name,Reason,State]);
 print_event(Dev, {Tag,Event,NextState}, {Name,State}) ->
     StateString =
 	case NextState of
 	    State ->
-		io_lib:format("~p", [State]);
+		io_lib:format("~tp", [State]);
 	    _ ->
-		io_lib:format("~p => ~p", [State,NextState])
+		io_lib:format("~tp => ~tp", [State,NextState])
 	end,
     io:format(
-      Dev, "*DBG* ~p ~w ~s in state ~s~n",
+      Dev, "*DBG* ~tp ~tw ~ts in state ~ts~n",
       [Name,Tag,event_string(Event),StateString]).
 
 event_string(Event) ->
     case Event of
 	{{call,{Pid,_Tag}},Request} ->
-	    io_lib:format("call ~p from ~w", [Request,Pid]);
+	    io_lib:format("call ~tp from ~w", [Request,Pid]);
 	{EventType,EventContent} ->
-	    io_lib:format("~w ~p", [EventType,EventContent])
+	    io_lib:format("~tw ~tp", [EventType,EventContent])
     end.
 
 sys_debug(Debug, #{name := Name}, State, Entry) ->
@@ -1732,25 +1732,25 @@ error_info(
 		 CallbackMode
 	 end,
     error_logger:format(
-      "** State machine ~p terminating~n" ++
+      "** State machine ~tp terminating~n" ++
 	  case Q of
 	      [] -> "";
-	      _ -> "** Last event = ~p~n"
+	      _ -> "** Last event = ~tp~n"
 	  end ++
-	  "** When server state  = ~p~n" ++
-	  "** Reason for termination = ~w:~p~n" ++
+	  "** When server state  = ~tp~n" ++
+	  "** Reason for termination = ~w:~tp~n" ++
 	  "** Callback mode = ~p~n" ++
 	  case Q of
-	      [_,_|_] -> "** Queued = ~p~n";
+	      [_,_|_] -> "** Queued = ~tp~n";
 	      _ -> ""
 	  end ++
 	  case P of
 	      [] -> "";
-	      _ -> "** Postponed = ~p~n"
+	      _ -> "** Postponed = ~tp~n"
 	  end ++
 	  case FixedStacktrace of
 	      [] -> "";
-	      _ -> "** Stacktrace =~n**  ~p~n"
+	      _ -> "** Stacktrace =~n**  ~tp~n"
 	  end,
       [Name |
        case Q of