Index: /trunk/ccl/lib/numbers.lisp
===================================================================
--- /trunk/ccl/lib/numbers.lisp	(revision 5031)
+++ /trunk/ccl/lib/numbers.lisp	(revision 5032)
@@ -121,5 +121,4 @@
 	 (expt (setq expt (%i+ expt (* esign eexp))))
 	 (t (return-from parse-float nil)))))
-    ; if ppc read s as double vs error
     (fide sign integer expt (subtypep type 'short-float))))
 
@@ -243,9 +242,9 @@
                (error 'floating-point-underflow
                       :operation 'scale
-                      :operand (list sign integer power-of-10)))
-             (if (get-fpu-mode :underflow)
+                      :operands (list sign integer power-of-10)))
+             (if (get-fpu-mode :overflow)
                (error 'floating-point-overflow
                       :operation 'scale
-                      :operand (list sign integer power-of-10))))
+                      :operands (list sign integer power-of-10))))
            (return-from try-harder
              (if under
@@ -265,5 +264,5 @@
             (when (< poo -335) (ovf t))
             ;; this case occurs if 600+ digits 
-            (when (> poo 335)(ovf))))
+            (when (> poo 335) (ovf))))
         (let* ((divisor (5-to-e (- power-of-10)))
                ;; make sure we will have enough bits in the quotient