diff --git a/liberl/src/bran_lib_pervasives.erl b/liberl/src/bran_lib_pervasives.erl
index 00f8e9f..8e9679e 100644
--- a/liberl/src/bran_lib_pervasives.erl
+++ b/liberl/src/bran_lib_pervasives.erl
@@ -2,4 +2,4 @@
 
 -export([print_string/1]).
 
-print_string(S) -> io:format("~p", [S]).
+print_string(S) -> io:fwrite(S).