anchor.diff:  
         lv_encode = key_encode( <ls_data> ).
   
  -      rv_html = rv_html && '<tr>'                                       && gc_newline &&
  -        '<td valign="top">' && <ls_data>-type && '</td>'                && gc_newline &&
  -        '<td valign="top">' && <ls_data>-value && '</td>'               && gc_newline &&
  -        '<td><pre>' && lv_escaped && '</pre>'                           && gc_newline &&
  -        '<br><br>'                                                      && gc_newline &&
  -        '<a href="sapevent:display?' && lv_encode && '">Display</a>'    && gc_newline &&
  -        '<a href="sapevent:edit?' && lv_encode && '">Edit</a>'          && gc_newline &&
  -        '<a href="sapevent:delete?' && lv_encode && '">Delete</a></td>' && gc_newline &&
  -        '</tr>'                                                         && gc_newline.
  +      ro_html->add( '<tr>' ).
  +      ro_html->add( '<td valign="top">' && <ls_data>-type && '</td>' ).
  +      ro_html->add( '<td valign="top">' && <ls_data>-value && '</td>' ).
  +      ro_html->add( '<td><pre>' && lv_escaped && '</pre>' ).
  +      ro_html->add( '<br><br>' ).
  +      ro_html->add( '<a href="sapevent:display?' && lv_encode && '">Display</a>' ).
  +      ro_html->add( '<a href="sapevent:edit?' && lv_encode && '">Edit</a>' ).
  +      ro_html->add( '<a href="sapevent:delete?' && lv_encode && '">Delete</a></td>' ).
  +      ro_html->add( '</tr>' ).
       ENDLOOP.
   
  -    rv_html = rv_html && '</table>' && '</div>' && lcl_gui=>footer( ).
  +    ro_html->add( '</table>' ).
  +    ro_html->add( '</div>' ).
  +    ro_html->add( lcl_gui=>footer( ) ).
   
     ENDMETHOD.
   
  
positive.code:     CREATE OBJECT lo_db.
      lt_data = lo_db->list( ).
  
      rv_html = lcl_gui=>header( )         && gc_newline &&
        '<div id="header">'                && gc_newline &&
        '<h1>Database persistency</h1>'    && gc_newline &&
        '<a href="sapevent:back">Back</a>' && gc_newline &&
        '</div>'                           && gc_newline &&
        '<div id="toc">'                   && gc_newline &&
        '<table>'                          && gc_newline &&
        '<tr>'                             && gc_newline &&
        '<td><b>Type</b></td>'             && gc_newline &&
        '<td><b>Value</b></td>'            && gc_newline &&
        '<td><b>Data</b></td>'             && gc_newline &&
        '</tr>'                            && gc_newline.
  
      LOOP AT lt_data ASSIGNING <ls_data>.
        lv_escaped = escape( val    = <ls_data>-data_str(150)
  
negative.code:           lo_db   TYPE REF TO lcl_persistence_db.
  
  
      CREATE OBJECT ro_html.
  
      CREATE OBJECT lo_db.
      TRY.
          lv_data = lo_db->read(
  