diff --git a/compiler/mips/arith.lisp b/compiler/mips/arith.lisp
index 4165506aaea9cfba16b47f00aafbe623ce466aad..a05483d328bc7740a769c917f182a5bd856ad959 100644
--- a/compiler/mips/arith.lisp
+++ b/compiler/mips/arith.lisp
@@ -320,4 +320,4 @@
 (define-static-function two-arg-= (x y) :translate =)
 (define-static-function two-arg-/= (x y) :translate /=)
 
-(define-static-function negate (x) :translate -)
+(define-static-function %negate (x) :translate %negate)