Index: /trunk/ccl/compiler/vinsn.lisp
===================================================================
--- /trunk/ccl/compiler/vinsn.lisp	(revision 362)
+++ /trunk/ccl/compiler/vinsn.lisp	(revision 363)
@@ -91,5 +91,7 @@
         (setf (vinsn-template vinsn) template
               (vinsn-variable-parts vinsn) nil
-              (vinsn-annotation vinsn) nil)
+              (vinsn-annotation vinsn) nil
+	      (vinsn-gprs-set vinsn) 0
+	      (vinsn-fprs-set vinsn) 0)
         vinsn)
       (%make-vinsn template))))