Index: /trunk/ccl/level-0/l0-numbers.lisp
===================================================================
--- /trunk/ccl/level-0/l0-numbers.lisp	(revision 5688)
+++ /trunk/ccl/level-0/l0-numbers.lisp	(revision 5689)
@@ -467,5 +467,5 @@
   (if (and (eq int 0)(= sfloat 0.0s0))
     0
-    (#+32-bit-target ppc2::with-stack-short-floats #+32-bit-target ((s1 int))
+    (#+32-bit-target ppc32::with-stack-short-floats #+32-bit-target ((s1 int))
      #-32-bit-target let* #-32-bit-target ((s1 (%int-to-sfloat int)))
      (declare (short-float s1))