diff --git a/motif/lisp/prototypes.lisp b/motif/lisp/prototypes.lisp
index 3c58cef0c531b1bd10578d05241c05f11fa02ca7..d90e5342a47d9e9dd97aed9702b47551ddafdb30 100644
--- a/motif/lisp/prototypes.lisp
+++ b/motif/lisp/prototypes.lisp
@@ -40,7 +40,7 @@
 	(code (fill-pointer *request-table*)))
     `(progn
        (eval-when (compile load eval)
-	 (vector-push-extend (format nil "R~a" string-name) *request-table*))
+	 (vector-push-extend (format nil "R~a" ,string-name) *request-table*))
        (defun ,symbol-name ,arg-list
 	 ,doc-string
 	 ;; *** This generates lots of warnings at the moment