* input/regression/balloon.ly: new file.

[lilypond.git] / lily / balloon.cc

diff --git a/lily/balloon.cc b/lily/balloon.cc
index 0604a81234b74f91f155dd04d60782605a762a73..dfb4d86f2ee84773b0a7c8cc46ce4f44b6671762 100644 (file)
--- a/lily/balloon.cc
+++ b/lily/balloon.cc
@@ -25,7 +25,7 @@ Balloon_interface::brew_molecule (SCM smob)
 {
   Grob *me= unsmob_grob (smob);
 
-  SCM cb = me->get_grob_property ("original-callback");
+  SCM cb = me->get_grob_property ("balloon-original-callback");
   SCM scm_mol  =  SCM_EOL;
 
   if (gh_procedure_p (cb))