X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fcontext.cc;h=a6b1da6a3609787625c7546905cf61a2935d6bf2;hb=d061586179ac3febbb53f33734bd53d47498f273;hp=ef6fecf4b1aa123e566d858c4a576f2c3f45951e;hpb=313d11786149a101118f3db1ab319ca0c7b6f113;p=lilypond.git

diff --git a/lily/context.cc b/lily/context.cc
index ef6fecf4b1..a6b1da6a36 100644
--- a/lily/context.cc
+++ b/lily/context.cc
@@ -90,8 +90,7 @@ Context::Context ()
 
   smobify_self ();
 
-  Scheme_hash_table *tab = new Scheme_hash_table;
-  properties_scm_ = tab->unprotect ();
+  properties_scm_ = Scheme_hash_table::make_smob ();
   event_source_ = new Dispatcher ();
   event_source_->unprotect ();
   events_below_ = new Dispatcher ();