diff --git a/compiler/backend.lisp b/compiler/backend.lisp
index 8bb432a2c207cd17d1cfbb938dfa5a8abcadfd87..4ba6d49e632dc7c6ae5d8f087d80cb0511f8c4c7 100644
--- a/compiler/backend.lisp
+++ b/compiler/backend.lisp
@@ -72,7 +72,7 @@
   (unless (member (intern (string name) (find-package "C"))
 		  vm-support-routines)
     (warn "Unknown VM support routine: ~A" name))
-  (let ((local-name (symbolicate (backend-name *backend*) "-" name)))
+  (let ((local-name (symbolicate (backend-name *target-backend*) "-" name)))
     `(progn
        (defun ,local-name ,ll ,@body)
        (setf (,(intern (concatenate 'simple-string "BACKEND-" (string name))