diff --git a/init/mobject.lisp b/init/mobject.lisp
index 8fbafec6221fb2d939d73fbd1dfba4023c7440cd..33b28db40028ffd65006647f75fb9211c732404c 100644
--- a/init/mobject.lisp
+++ b/init/mobject.lisp
@@ -1,6 +1,6 @@
 ;; Definition of GSL objects and ways to use them.
 ;; Liam Healy, Sun Dec  3 2006 - 10:21
-;; Time-stamp: <2009-02-15 22:56:11EST mobject.lisp>
+;; Time-stamp: <2009-02-16 16:24:42EST mobject.lisp>
 
 ;;; GSL objects are represented in GSLL as and instance of a 'mobject.
 ;;; The macro demobject takes care of defining the appropriate
@@ -234,7 +234,7 @@
   (:documentation "The name given to the GSL object."))
 
 (export 'evaluate)
-(defgeneric evaluate (object point &key)
+(defgeneric evaluate (object point &key #+sbcl &allow-other-keys)
   (:documentation "Evaluate the GSL object."))
 
 ;;; Pointer type