X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fstencil-expression.cc;h=06aabb992f943494b09561e3aa039d1bfbae5843;hb=616820eb02249fe731df7a5dabf975a108fa2970;hp=c156d0aa9f2d31d0191e33c6105ba93455c45b0d;hpb=d2762a4f1add2bb04d6fc34d3c7ae03eeb7d500f;p=lilypond.git

diff --git a/lily/stencil-expression.cc b/lily/stencil-expression.cc
index c156d0aa9f..06aabb992f 100644
--- a/lily/stencil-expression.cc
+++ b/lily/stencil-expression.cc
@@ -33,8 +33,7 @@ void register_stencil_head (SCM symbol)
 bool
 is_stencil_head (SCM symbol)
 {
-  return scm_object_property (symbol, ly_symbol2scm ("stencil-head?"))
-         == SCM_BOOL_T;
+  return to_boolean (scm_object_property (symbol, ly_symbol2scm ("stencil-head?")));
 }
 
 SCM