*** empty log message ***

[lilypond.git] / lily / pitch.cc

diff --git a/lily/pitch.cc b/lily/pitch.cc
index 3be10e21533ce66aedf59998258be325ad3590ea..09ebadf66012029478de41253975424c767e24c6 100644 (file)
--- a/lily/pitch.cc
+++ b/lily/pitch.cc
@@ -255,7 +255,7 @@ Pitch::print_smob (SCM s, SCM port, scm_print_state *)
   Pitch  *r = (Pitch *) ly_cdr (s);
      
   scm_puts ("#<Pitch ", port);
-  scm_display (ly_str02scm (r->string ().to_str0 ()), port);
+  scm_display (scm_makfrom0str (r->string ().to_str0 ()), port);
   scm_puts (" >", port);
   
   return 1;