Index: /trunk/ccl/level-0/PPC/ppc-float.lisp
===================================================================
--- /trunk/ccl/level-0/PPC/ppc-float.lisp	(revision 5625)
+++ /trunk/ccl/level-0/PPC/ppc-float.lisp	(revision 5626)
@@ -485,4 +485,6 @@
 (defun %fp-error-from-status (status-bits control-bits operation &rest operands)
   (declare (type (unsigned-byte 16) status-bits))
+  (case operation
+    (sqrt (setq operands (cdr operands))))
   (let* ((condition-class (fp-condition-from-fpscr status-bits control-bits)))
     (if condition-class
@@ -497,4 +499,5 @@
     (20 '-)
     (21 '+)
+    (22 'sqrt)
     (t 'unknown)))