diff -ruN ./lilypond.orig/lily/stem.cc ./lilypond.patched/lily/stem.cc
--- ./lilypond.orig/lily/stem.cc	Mon Jun 10 19:14:20 2002
+++ ./lilypond.patched/lily/stem.cc	Mon Jun 10 20:52:06 2002
@@ -281,7 +281,7 @@
     
       Direction dir = get_direction (me);
     
-      return dir*  (line_count + 1.5);
+      return dir*  (line_count + 3.5);
     }
   
   bool grace_b = to_boolean (me->get_grob_property ("grace"));
diff -ruN ./lilypond.orig/lily/tab-note-heads-engraver.cc ./lilypond.patched/lily/tab-note-heads-engraver.cc
--- ./lilypond.orig/lily/tab-note-heads-engraver.cc	Mon Jun 10 19:14:20 2002
+++ ./lilypond.patched/lily/tab-note-heads-engraver.cc	Mon Jun 10 19:27:43 2002
@@ -155,5 +155,5 @@
 /* descr */       "Generate one or more tablature noteheads from Music of type Note_req.",
 /* creats*/       "TabNoteHead Dots",
 /* acks  */       "",
-/* reads */       "centralCPosition",
+/* reads */       "centralCPosition stringTunings",
 /* write */       "");
diff -ruN ./lilypond.orig/ly/engraver-init.ly ./lilypond.patched/ly/engraver-init.ly
--- ./lilypond.orig/ly/engraver-init.ly	Mon Jun 10 19:14:19 2002
+++ ./lilypond.patched/ly/engraver-init.ly	Mon Jun 10 19:17:48 2002
@@ -454,6 +454,10 @@
       % Draws all stems/beams out of the staff (and not in the middle of the staff !)
       Beam \override #'damping = #100000
       Stem \override #'up-to-staff = ##t
+      
+      % No accidental in tablature !
+      \remove Accidental_engraver
+      Accidental  = \turnOff 
 }
 
 TabStaffContext = \translator {
@@ -479,9 +483,10 @@
       Stem \override #'avoid-note-head = ##t
       
       % No accidental in tablature !
+      \remove Accidental_engraver
       Accidental  = \turnOff 
       
-      stringTunings = #'(-8 -3 2 7 11 16)
+      stringTunings = #'(4 9 14 19 23 28)
       tablatureFormat = #fret-number-tablature-format
 }