diff --git a/motif/lisp/prototypes.lisp b/motif/lisp/prototypes.lisp
index d90e5342a47d9e9dd97aed9702b47551ddafdb30..d5d26d5cd89d7db279abe62f987116f99770893d 100644
--- a/motif/lisp/prototypes.lisp
+++ b/motif/lisp/prototypes.lisp
@@ -93,7 +93,7 @@
 	(code (fill-pointer *request-table*)))
     `(progn
        (eval-when (compile load eval)
-	 (vector-push-extend string-name *request-table*)
+	 (vector-push-extend ,string-name *request-table*)
 	 (defun ,symbol-name ()
 	   (let* ((message (prepare-request ,code ,options 0))
 		  (reply (send-request-to-server message ,options)))