diff --git a/source/qb64.bas b/source/qb64.bas
index d8a423a57..ea271d60a 100644
--- a/source/qb64.bas
+++ b/source/qb64.bas
@@ -24905,19 +24905,20 @@ FUNCTION EvaluateNumbers$ (p, num() AS STRING)
                         EXIT FUNCTION
                     END IF
                 CASE "\"
-                    IF VAL(num(2)) <> 0 THEN
-                        n1 = VAL(num(1)) \ VAL(num(2))
-                    ELSE
+                    IF FIX(VAL(num(2))) = 0 THEN
                         EvaluateNumbers$ = "ERROR - Division By Zero"
                         EXIT FUNCTION
                     END IF
+
+                    n1 = VAL(num(1)) \ FIX(VAL(num(2)))
                 CASE "MOD"
-                    IF VAL(num(2)) <> 0 THEN
-                        n1 = VAL(num(1)) MOD VAL(num(2))
-                    ELSE
+                    IF FIX(VAL(num(2))) = 0 THEN
                         EvaluateNumbers$ = "ERROR - Division By Zero"
                         EXIT FUNCTION
                     END IF
+
+                    n1 = VAL(num(1)) MOD FIX(VAL(num(2)))
+
                 CASE "+": n1 = VAL(num(1)) + VAL(num(2))
                 CASE "-":
                     n1 = VAL(num(1)) - VAL(num(2))