diff --git a/src/xml.erl b/src/xml.erl
index aca0735d7..fd327ba2d 100644
--- a/src/xml.erl
+++ b/src/xml.erl
@@ -56,7 +56,6 @@ attr_to_list({Name, Value}) ->
     [$\s, crypt(Name), $=, $', crypt(Value), $'].
 
 crypt(S) when is_list(S) ->
-    io:format("MREMOND crypt~n",[]),
     [case C of
 	 $& -> "&";
 	 $< -> "&lt;";
@@ -70,7 +69,6 @@ crypt(S) when is_binary(S) ->
 
 %% Make a cdata_binary depending on what characters it contains
 make_text_node(CData) ->
-    io:format("MREMOND CDATA~n",[]),
     case cdata_need_escape(CData) of
 	cdata ->
 	    CDATA1 = <<"<![CDATA[">>,