Index: lily/duration-scheme.cc
===================================================================
RCS file: /cvsroot/lilypond/lilypond/lily/duration-scheme.cc,v
retrieving revision 1.2
diff -u -r1.2 duration-scheme.cc
--- lily/duration-scheme.cc	31 Jan 2005 12:53:10 -0000	1.2
+++ lily/duration-scheme.cc	20 Feb 2005 23:04:39 -0000
@@ -68,7 +68,7 @@
   bool compress = false;
   if (num != SCM_UNDEFINED)
     {
-      SCM_ASSERT_TYPE (scm_is_number (num), length, SCM_ARG3, __FUNCTION__, "integer");
+      SCM_ASSERT_TYPE (scm_is_number (num), num, SCM_ARG3, __FUNCTION__, "integer");
       compress = true;
     }
   else
@@ -76,7 +76,7 @@
 
   if (den != SCM_UNDEFINED)
     {
-      SCM_ASSERT_TYPE (scm_is_number (den), length, SCM_ARG4, __FUNCTION__, "integer");
+      SCM_ASSERT_TYPE (scm_is_number (den), den, SCM_ARG4, __FUNCTION__, "integer");
       compress = true;
     }
   else