Index: /trunk/source/compiler/vinsn.lisp
===================================================================
--- /trunk/source/compiler/vinsn.lisp	(revision 14957)
+++ /trunk/source/compiler/vinsn.lisp	(revision 14958)
@@ -494,6 +494,6 @@
 	(if (vinsn-attribute-p element :call)
 	  (return (values #xffffffff #xffffffff))
-	  (setq gprs-set (logior (vinsn-gprs-set element))
-		fprs-set (logior (vinsn-fprs-set element))))))))
+	  (setq gprs-set (logior gprs-set (vinsn-gprs-set element))
+		fprs-set (logior fprs-set (vinsn-fprs-set element))))))))
       
 ;;; Return T if any vinsn between START and END (exclusive) sets REG.