X-Git-Url: https://git.donarmstrong.com/lilypond.git?a=blobdiff_plain;f=lily%2Fscm-hash.cc;h=09750b51ace1107df9f900dc8a8b317c0bcbfb73;hb=5142c0fa1225591c2aca945cf616c81767f2ed4e;hp=08cac970949a14a460360f7035c68583e95e2c71;hpb=a078e3a2964438b8e4ef63c0ed9b6e298afa9449;p=lilypond.git

diff --git a/lily/scm-hash.cc b/lily/scm-hash.cc
index 08cac97094..09750b51ac 100644
--- a/lily/scm-hash.cc
+++ b/lily/scm-hash.cc
@@ -54,7 +54,7 @@ Scheme_hash_table::print_smob (SCM s, SCM p, scm_print_state*)
 {
   assert (unsmob (s));
   char str[1000];
-  sprintf (str, "#<Scheme_hash_table 0x%0x ", s);
+  sprintf (str, "#<Scheme_hash_table 0x%0x ", SCM_UNPACK (s));
   scm_puts (str, p);      
   Scheme_hash_table *me = unsmob (s);
   for (Scm_stl_map::const_iterator i = me->begin (); i != me->end (); i++)