base64 encoding

include/mad.hrl

@@ -1 +1 @@
--define(VERSION,"e2b453").
+-define(VERSION,"f3b8b4").

src/package/mad_escript.erl

@@ -17,7 +17,7 @@ read_file(File) -> {ok, Bin} = file:read_file(filename:absname(File)), Bin.
 static() ->
     Name = "static.gz",
     {ok,{_,Bin}} = zip:create(Name,
-        [ { binary_to_list(base64:encode(F)), element(2,file:read_file(F)) } 
+        [ { binary_to_list(base64:encode(unicode:characters_to_binary(F))), element(2,file:read_file(F)) } 
      || F <- mad_repl:wildcards(["{apps,deps}/*/priv/**","priv/**"]), not filelib:is_dir(F) ],
         [{compress,all},memory]),
     [ { Name, Bin } ].

src/provision/mad_repl.erl

@@ -102,7 +102,7 @@ unfold_zips(Bin) ->
     {ok,Unzip} = zip:unzip(Bin,[memory]),
     [ begin
        try
-        ets:insert(filesystem,{binary_to_list(base64:decode(list_to_binary(U))),FileBin})
+        ets:insert(filesystem,{unicode:characters_to_list(base64:decode(list_to_binary(U))),FileBin})
        catch _:_ -> ok end,
         case U of
             "static.gz" -> unfold_zips(FileBin);