diff --git a/init/body-expand.lisp b/init/body-expand.lisp
index abf3aa5..2b23dc6 100644
--- a/init/body-expand.lisp
+++ b/init/body-expand.lisp
@@ -1,6 +1,6 @@
 ;; Expand the body of a defmfun
 ;; Liam Healy 2009-04-13 22:07:13EDT body-expand.lisp
-;; Time-stamp: <2010-06-27 18:25:27EDT body-expand.lisp>
+;; Time-stamp: <2010-08-10 21:25:15EDT body-expand.lisp>
 ;;
 ;; Copyright 2009, 2010 Liam M. Healy
 ;; Distributed under the terms of the GNU General Public License
@@ -58,7 +58,7 @@
   "Make a fsbv:defcfun form so that function will be prepped."
   (multiple-value-bind (args return-type)
       (fsbv:defcfun-args-from-ff-args ff-args)
-    (let ((gsl-name-symbol (make-symbol gsl-name))
+    (let ((gsl-name-symbol (intern gsl-name))
 	  (symbargs
 	   (mapcar (lambda (st) (grid:make-st (gensym "ARG") (grid:st-type st)))
 		   args)))