Fix #93.

[lilypond.git] / lily / stencil-expression.cc

diff --git a/lily/stencil-expression.cc b/lily/stencil-expression.cc
index ae9127cfbbc851f7563cfe880f7bed8b7083e091..6e51ec9b9d5ec334340c0617affdaf61b269698d 100644 (file)
--- a/lily/stencil-expression.cc
+++ b/lily/stencil-expression.cc
@@ -17,7 +17,7 @@ void register_stencil_head (SCM symbol)
     heads = scm_permanent_object (scm_cons (SCM_EOL, SCM_EOL));
   
   scm_set_object_property_x (symbol, ly_symbol2scm ("stencil-head?"), SCM_BOOL_T);
-  scm_set_cdr_x (heads,  scm_cons (symbol, heads));
+  scm_set_cdr_x (heads,  scm_cons (symbol, scm_cdr (heads)));
 }
 
 bool