Update guile interface.

[lilypond.git] / lily / context.cc

diff --git a/lily/context.cc b/lily/context.cc
index 45a1562b1f98a6d255c7da7d2af73f065744d66b..9d10d5378fd2c875c6dc24387ad238d7edc3d185 100644 (file)
--- a/lily/context.cc
+++ b/lily/context.cc
@@ -337,7 +337,7 @@ Context::create_context (Context_def *cdef,
   send_stream_event (this, "CreateContext", 0,
                      ly_symbol2scm ("ops"), ops,
                      ly_symbol2scm ("type"), cdef->get_context_name (),
-                     ly_symbol2scm ("id"), scm_makfrom0str (id.c_str ()));
+                     ly_symbol2scm ("id"), ly_string2scm (id));
   event_source_->
     remove_listener (GET_LISTENER (acknowledge_infant),
                      ly_symbol2scm ("AnnounceNewContext"));