Index: /trunk/ccl/compiler/PPC/PPC64/ppc64-vinsns.lisp
===================================================================
--- /trunk/ccl/compiler/PPC/PPC64/ppc64-vinsns.lisp	(revision 345)
+++ /trunk/ccl/compiler/PPC/PPC64/ppc64-vinsns.lisp	(revision 346)
@@ -20,5 +20,5 @@
 (eval-when (:compile-toplevel :load-toplevel :execute)
   (require "VINSN")
-  (require "PPC-BACKEND"))
+  (require "PPC64-BACKEND"))
 
 (eval-when (:compile-toplevel :execute)
@@ -3335,5 +3335,5 @@
 ;;; In case ppc64::*ppc-opcodes* was changed since this file was compiled.
 (queue-fixup
- (fixup-vinsn-templates *ppc-vinsn-templates* ppc::*ppc-opcode-numbers*))
-
-(ccl::provide "PPC-VINSNS")
+ (fixup-vinsn-templates *ppc64-vinsn-templates* ppc::*ppc-opcode-numbers*))
+
+(provide "PPC64-VINSNS")