* arith.c (abso): broken for fixnums.

1 files changed, 1 insertions, 1 deletions

diff --git a/arith.c b/arith.c
index ccc29657..14696c24 100644
--- a/arith.c
+++ b/arith.c
@@ -459,7 +459,7 @@ val abso(val anum)
     return n;
   } else {
     cnum n = c_num(anum);
-    return num(n < 0 ? n : n);
+    return num(n < 0 ? -n : n);
   }
 }