From f4d0b201adf2eff63cdc0c4d2197e90809e35198 Mon Sep 17 00:00:00 2001
From: Evgeniy Khramtsov <ekhramtsov@process-one.net>
Date: Sat, 11 Jun 2011 23:28:10 +1000
Subject: [PATCH] Escape iolist correctly when NIFs are disabled (EJAB-1462)

---
 src/xml.erl | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/xml.erl b/src/xml.erl
index 1fca171ec..da7b5f8d3 100644
--- a/src/xml.erl
+++ b/src/xml.erl
@@ -111,6 +111,7 @@ crypt(S) when is_list(S) ->
 	 $> -> "&gt;";
 	 $" -> "&quot;";
 	 $' -> "&apos;";
+         _ when is_list(C); is_binary(C) -> crypt(C);
 	 _ -> C
      end || C <- S];
 crypt(S) when is_binary(S) ->