diff --git a/src/compiler/float-tran.lisp b/src/compiler/float-tran.lisp
index 2d8d829bc963bc3ed61b4adb718b18e88185d15f..39e960b66b479e0a67b11be6441f21df6115c551 100644
--- a/src/compiler/float-tran.lisp
+++ b/src/compiler/float-tran.lisp
@@ -716,7 +716,7 @@
 (dolist (stuff '((exp %exp *)
 		 (log %log float)
 		 (sqrt %sqrt float)
-		 (sin %asin float)
+		 (sin %sin float)
 		 (cos %cos float)
 		 (tan %tan float)
 		 (asin %asin float)