X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fmidi-item.cc;h=827e5c869fb38ca57bd0343f3173c9cc14b864ce;hb=24ac85edabed266d1de42c12971f4e81b4475d7d;hp=064fdd2292deb1ff2986e00fc069e7a543410171;hpb=f47a52d0c0b6f0f2bc39708528ba9cec4882aaa2;p=lilypond.git

diff --git a/lily/midi-item.cc b/lily/midi-item.cc
index 064fdd2292..827e5c869f 100644
--- a/lily/midi-item.cc
+++ b/lily/midi-item.cc
@@ -142,7 +142,7 @@ Midi_instrument::to_string () const
   /*
     UGH. don't use eval.
    */
-  SCM proc = ly_scheme_function ("midi-program");
+  SCM proc = ly_lily_module_constant ("midi-program");
   SCM program = scm_call_1 (proc, ly_symbol2scm (audio_->str_.to_str0 ()));
   found = (program != SCM_BOOL_F);
   if (found)