diff --git a/src/cmp/sysfun.lsp b/src/cmp/sysfun.lsp
index 95082e88a..c3c148653 100644
--- a/src/cmp/sysfun.lsp
+++ b/src/cmp/sysfun.lsp
@@ -610,10 +610,10 @@
 (REALPART (T) T)
 (IMAGPART (T) T)
 (= (T *) T NIL T
-	:inline-always ((t t) boolean nil nil "number_equalp(#0,#1)==0")
+	:inline-always ((t t) boolean nil nil "number_equalp(#0,#1)")
 	:inline-always ((fixnum-float fixnum-float) boolean nil nil "(#0)==(#1)"))
 (/= (T *) T nil t
-	:inline-always ((t t) boolean nil nil "number_equalp(#0,#1)!=0")
+	:inline-always ((t t) boolean nil nil "!number_equalp(#0,#1)")
 	:inline-always ((fixnum-float fixnum-float) boolean nil nil "(#0)!=(#1)"))
 (< (T *) T nil t
 	:inline-always ((t t) boolean nil nil "number_compare(#0,#1)<0")