diff --git a/unit_tests/regression.suite/issue-31.lsl b/unit_tests/regression.suite/issue-31.lsl
index 8621d98..086bb48 100644
--- a/unit_tests/regression.suite/issue-31.lsl
+++ b/unit_tests/regression.suite/issue-31.lsl
@@ -2,19 +2,17 @@ default{timer(){
   integer ia = llGetUnixTime();
   integer ib = llGetUnixTime();
   integer ic = -5;
-  integer id = ia*2;
-  integer ie = -ic*ia;
+  integer id = -ic*ia;
   float fa = llGetTime();
   float fb = llGetTime();
   float fc = -5.5;
-  float fd = fa*2;
-  float fe = -fc*fa;
+  float fd = -fc*fa;
   // FIXME: This is broken in the output module.
   // The output should parenthesize the first two factors in the products,
   // just as they are in the source. Fortunately they are equivalent.
   // FIXME: The output is not optimal.
   // It would suffice to add a space without parenthesizing the --ia,
   // just like in the source.
-  llOwnerSay((string)[(- --ia*ib)*ib, (-++ia*ib)*ib, --ia*ib, ie]);
-  llOwnerSay((string)[(- --fa*fb)*fb, (-++fa*fb)*fb, --fa*fb, fe]);
+  llOwnerSay((string)[(- --ia*ib)*ib, (-++ia*ib)*ib, --ia*ib, id]);
+  llOwnerSay((string)[(- --fa*fb)*fb, (-++fa*fb)*fb, --fa*fb, fd]);
 }}
diff --git a/unit_tests/regression.suite/issue-31.out b/unit_tests/regression.suite/issue-31.out
index a79b821..03b8593 100644
--- a/unit_tests/regression.suite/issue-31.out
+++ b/unit_tests/regression.suite/issue-31.out
@@ -4,11 +4,11 @@ default
     {
         integer ia = llGetUnixTime();
         integer ib = llGetUnixTime();
-        integer ie = -(-5) * ia;
+        integer id = -(-5) * ia;
         float fa = llGetTime();
         float fb = llGetTime();
-        float fe = -(-5.5) * fa;
-        llOwnerSay((string)[-(--ia) * ib * ib, -++ia * ib * ib, (--ia) * ib, ie]);
-        llOwnerSay((string)[-(--fa) * fb * fb, -++fa * fb * fb, (--fa) * fb, fe]);
+        float fd = -(-5.5) * fa;
+        llOwnerSay((string)[-(--ia) * ib * ib, -++ia * ib * ib, (--ia) * ib, id]);
+        llOwnerSay((string)[-(--fa) * fb * fb, -++fa * fb * fb, (--fa) * fb, fd]);
     }
 }