diff --git a/ordinary-differential-equations/stepping.lisp b/ordinary-differential-equations/stepping.lisp
index 250be3fe56a71c79fc2b94260b9aa4d2f71c3f8f..94d8da842df0622df26bb1942c29b7b21d4c2fc7 100644
--- a/ordinary-differential-equations/stepping.lisp
+++ b/ordinary-differential-equations/stepping.lisp
@@ -1,7 +1,6 @@
 ;; Stepping functions for ODE systems.
 ;; Liam Healy, Mon Sep 24 2007 - 21:33
-;; Time-stamp: <2009-06-06 16:44:42EDT stepping.lisp>
-;; $Id$
+;; Time-stamp: <2009-11-30 19:01:31EST stepping.lisp>
 
 ;; /usr/include/gsl/gsl_odeiv.h
 
@@ -91,10 +90,10 @@ values):
   (((mpointer stepper) :pointer)
    (time :double)
    (step-size :double)
-   (y :pointer)
-   (yerr :pointer)
-   (dydt-in :pointer)
-   (dydt-out :pointer)
+   ((c-pointer y) :pointer)
+   ((c-pointer yerr) :pointer)
+   ((c-pointer dydt-in) :pointer)
+   ((c-pointer dydt-out) :pointer)
    ((callback-struct stepper) :pointer))
   :documentation			; FDL
   "Apply the stepping function stepper to the system of equations