encode binary control id as binary

src/actions/action_event.erl

@@ -18,7 +18,7 @@ data(E,SourceList) ->
     Type=fun(A) when is_atom(A)   -> [ "atom('",atom_to_list(A),"')" ];
             (A) when is_binary(A) -> [ "bin('",binary_to_list(A),"')" ];
                               (A) -> [ "string('",A,"')" ] end,
-    list_to_binary(["[tuple(tuple(string('",E,"'),bin('detail')),[])",
+    list_to_binary(["[tuple(tuple(bin('",E,"'),bin('detail')),[])",
         [ case S of {Id,Code} -> [ ",tuple(",Type(Id),",",Code,")" ];
                             _ -> [ ",tuple(",Type(S),",querySource('",?B(S),"'))" ]
           end || S <- SourceList ],"]"]).