1 files changed, 1 insertions, 1 deletions
diff --git a/numeric.c b/numeric.c
index f6f1d3b22b..c5e9893c03 100644
--- a/numeric.c
+++ b/numeric.c
@@ -870,7 +870,7 @@ flo_hash(num)
     if (d == 0) d = fabs(d);
     c = (char*)&d;
     for (hash=0, i=0; i<sizeof(double);i++) {
-	hash += c[i] * 971;
+	hash = (hash * 971) ^ (unsigned char)c[i];
     }
     if (hash < 0) hash = -hash;
     return INT2FIX(hash);