--- a/src/lsode.cc
+++ b/src/lsode.cc
@@ -42,15 +42,15 @@
 
 #ifdef WITH_DLD
 Octave_object
-builtin_lsode_2 (const Octave_object& args, int nargin, int nargout)
+builtin_lsode_2 (const Octave_object& args int nargout)
 {
-  return lsode (args, nargin, nargout);
+  return lsode (args, nargout);
 }
 
 Octave_object
-builtin_lsode_options_2 (const Octave_object& args, int nargin, int nargout)
+builtin_lsode_options_2 (const Octave_object& args, int nargout)
 {
-  return lsode_options (args, nargin, nargout);
+  return lsode_options (args, nargout);
 }
 #endif
 
@@ -85,7 +85,7 @@
 
   if (lsode_fcn != (tree_fvc *) NULL)
     {
-      Octave_object tmp = lsode_fcn->eval (0, 1, args, 3);
+      Octave_object tmp = lsode_fcn->eval (0, 1, args);
 
       if (error_state)
 	{
@@ -108,12 +108,14 @@
 }
 
 Octave_object
-lsode (const Octave_object& args, int nargin, int nargout)
+lsode (const Octave_object& args, int nargout)
 {
 // Assumes that we have been given the correct number of arguments.
 
   Octave_object retval;
 
+  int nargin = args.length ();
+
   lsode_fcn = is_valid_function (args(1), "lsode", 1);
   if (lsode_fcn == (tree_fvc *) NULL
       || takes_correct_nargs (lsode_fcn, 3, "lsode", 1) != 1)
@@ -256,10 +258,12 @@
 }
 
 Octave_object
-lsode_options (const Octave_object& args, int nargin, int nargout)
+lsode_options (const Octave_object& args, int nargout)
 {
   Octave_object retval;
 
+  int nargin = args.length ();
+
   if (nargin == 1)
     print_lsode_option_list ();
   else if (nargin == 3)