Index: /trunk/source/compiler/ARM/arm2.lisp
===================================================================
--- /trunk/source/compiler/ARM/arm2.lisp	(revision 14969)
+++ /trunk/source/compiler/ARM/arm2.lisp	(revision 14970)
@@ -2901,5 +2901,7 @@
 		   (regs-set-in-vinsn-sequence push-vinsn pop-vinsn)
 		 (declare (ignore used-gprs))
-		 (let* ((nfprs 16)
+                 ;; We have 16 non-volatile single-floats or 8
+                 ;; non-volatile double-floats
+		 (let* ((nfprs 8)
 			(free-fpr
 			 (dotimes (r nfprs nil)