Index: buffer.lisp
===================================================================
RCS file: /project/gsharp/cvsroot/gsharp/buffer.lisp,v
retrieving revision 1.34
diff -u -r1.34 buffer.lisp
--- buffer.lisp	15 Feb 2006 02:54:26 -0000	1.34
+++ buffer.lisp	28 Feb 2006 16:59:56 -0000
@@ -199,10 +200,11 @@
   (apply #'make-instance 'note :pitch pitch :staff staff args))
 
 (defmethod print-gsharp-object :after ((n note) stream)
-  (with-slots (pitch staff head accidentals dots) n
+  (with-slots (pitch staff head accidentals dots %tie-right %tie-left) n
     (format stream
-	    "~_:pitch ~W ~_:staff ~W ~_:head ~W ~_:accidentals ~W ~_:dots ~W "
-	    pitch staff head accidentals dots)))
+	    "~_:pitch ~W ~_:staff ~W ~_:head ~W ~_:accidentals ~W ~_:dots ~W ~
+             ~@[~_:tie-right ~W ~]~@[~_:tie-left ~W ~]"
+	    pitch staff head accidentals dots %tie-right %tie-left)))
 
 (defun read-note-v3 (stream char n)
   (declare (ignore char n))
