diff --git a/src/cffi-abcl.lisp b/src/cffi-abcl.lisp
index 72ac6f38d9592eccdf77b50ab5f0753c9798be9e..1b98ce1a849ef4c24edf346b99988e21ee9d89c5 100644
--- a/src/cffi-abcl.lisp
+++ b/src/cffi-abcl.lisp
@@ -485,7 +485,8 @@ WITH-POINTER-TO-VECTOR-DATA."
 (defvar *callbacks* (make-hash-table))
 
 (defmacro convert-args-to-lisp-values (arg-names &rest body)
-  (let ((gensym-args (loop :for name :in arg-names :collecting (gensym))))
+  (let ((gensym-args (loop :for name :in arg-names
+                           :collecting (gensym (format nil "~A-~A-" '#:callback-arg name)))))
     `(lambda (,@gensym-args)
        (let ,(loop 
                 :for arg :in arg-names