anchor.diff:              TempID = wf:temp_id(),
               [
                   AnchorScript,
  -                wf:f("document.~s = function() {", [TempID]), SystemPostbackScript, WireAction, "};",
  -                wf:f("setTimeout(\"document.~s(); document.~s=null;\", ~p);", [TempID, TempID, Delay])
  +                wf:f(<<"document.~s = function() {">>, [TempID]), SystemPostbackScript, WireAction, "};",
  +                wf:f(<<"setTimeout(\"document.~s(); document.~s=null;\", ~p);">>, [TempID, TempID, Delay])
               ];
   
           %% USER EVENTS %%%
  
positive.code: maybe_wire_next(_Anchor, undefined) -> do_nothing;
  maybe_wire_next(Anchor, Next) ->
      Next1 = wf_render_actions:normalize_path(Next),
      wf:defer(Anchor, #event{ type=tabkey, actions=wf:f("Nitrogen.$go_next('~s');", [Next1])}).
  
negative.code:         % Handle keypress, keydown, or keyup when a keycode is defined...
          _ when ((EffectiveType==keypress orelse EffectiveType==keydown orelse EffectiveType==keyup) andalso (EffectiveKeyCode /= undefined)) ->
              [
                  wf:f(<<"Nitrogen.$observe_event('~s', '~s', '~s', function(event) {">>, [Anchor, Trigger, EffectiveType]),
                      wf:f(<<"if (Nitrogen.$is_key_code(event, ~p, ~p)) { ">>, [EffectiveKeyCode, ShiftKey]),
                          AnchorScript, PostbackScript, WireAction, 
                          %wf:f("alert('~p:~p');",[EffectiveType, EffectiveKeyCode]),
                      <<"return false;">>,
                  <<"}});">>
              ];
  
          % Run the event after a specified amount of time
          timer ->
              TempID = wf:temp_id(),
              [
                  wf:f(<<"document.~s = function() {">>, [TempID]), 
                  AnchorScript, PostbackScript, WireAction, 
                      <<"};">>,
                  wf:f(<<"setTimeout(\"document.~s(); document.~s=null;\", ~p);">>, [TempID, TempID, Delay])
              ];
  
          default ->
  