diff --git a/init/body-expand.lisp b/init/body-expand.lisp
index 32e73d82c4c9cb901b63a354442f2a77528006e2..ceefd8db6cc31a7ee26007f1a9e0d16855350ceb 100644
--- a/init/body-expand.lisp
+++ b/init/body-expand.lisp
@@ -1,8 +1,8 @@
 ;; Expand the body of a defmfun
 ;; Liam Healy 2009-04-13 22:07:13EDT body-expand.lisp
-;; Time-stamp: <2009-12-27 09:50:35EST body-expand.lisp>
+;; Time-stamp: <2010-06-10 11:03:23EDT body-expand.lisp>
 ;;
-;; Copyright 2009 Liam M. Healy
+;; Copyright 2009, 2010 Liam M. Healy
 ;; Distributed under the terms of the GNU General Public License
 ;;
 ;; This program is free software: you can redistribute it and/or modify
@@ -63,7 +63,7 @@
 	   (mapcar (lambda (st) (c-array:make-st (gensym "ARG") (c-array:st-type st)))
 		   args)))
       (values
-       `(fsbv:defcfun (,gsl-name-symbol gsl-name) ,return-type
+       `(fsbv:defcfun (,gsl-name-symbol ,gsl-name) ,return-type
 	  "Function definition generated for FSBV prepping; will actually
         be called by fsbv:foreign-funcall"
 	  ,@symbargs)