diff --git a/compiler/pack.lisp b/compiler/pack.lisp
index b183073c1d8e60b163a06e0d5ab01c2094247bc0..53aeec425175204f39a6dd2550ff8f8948b6c557 100644
--- a/compiler/pack.lisp
+++ b/compiler/pack.lisp
@@ -433,7 +433,7 @@
   (emit-load-template node block
 		      (template-or-lose 'move-operand)
 		      src dest
-		      (list (or (svref (sc-load-functions (tn-sc dest))
+		      (list (or (svref (sc-move-functions (tn-sc dest))
 				       (sc-number (tn-sc src)))
 				(no-load-function-error src dest)))
 		      after)