X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Finclude%2Fly-smobs.icc;h=2475b8ca751daebe3db6e80163dc75013dd2b378;hb=9f3572d98bb948c9689cd1f75401a029451fa001;hp=99c09fc0435f3e51792fd3966bc507c88235d81d;hpb=04265f11d1f21416ccebd2dcaa1d903dc781b36e;p=lilypond.git

diff --git a/lily/include/ly-smobs.icc b/lily/include/ly-smobs.icc
index 99c09fc043..2475b8ca75 100644
--- a/lily/include/ly-smobs.icc
+++ b/lily/include/ly-smobs.icc
@@ -74,8 +74,8 @@
     void								\
   CL::smobify_self ()							\
   {									\
-    protection_cons_ = SCM_EOL;						\
     self_scm_ = unprotected_smobify_self ();				\
+    protection_cons_ = SCM_EOL;						\
     protect ();								\
   }									\
   void									\
@@ -86,7 +86,7 @@
   SCM									\
   CL::unprotect ()							\
   {									\
-    unprotect_smob (self_scm_, &protection_cons_);			\
+    unprotect_smob (&protection_cons_);					\
     return self_scm_;							\
   }									\
   SCM									\