Index: /trunk/source/compiler/optimizers.lisp
===================================================================
--- /trunk/source/compiler/optimizers.lisp	(revision 14724)
+++ /trunk/source/compiler/optimizers.lisp	(revision 14725)
@@ -80,5 +80,5 @@
                      car cdr cadr cddr nth nthcdr last load-byte deposit-byte byte-mask
                      member search count position assoc rassoc integer-length
-		         float not null char-int expt abs
+		         float not null char-int expt abs sqrt 
                      = /= < <= > >=))