fix: typo in GetTable

The typo manifests most prominently as a double free, but it has
other effects too.

Author: magv

check/fixes.frm

@@ -4581,3 +4581,15 @@ Symbol x;
 .end
 assert succeeded?
 *--#] PullReq691 :
+*--#[ Issue808 :
+#do i=0,9
+Global E`i' = `i';
+#enddo
+.store
+#do i=1,80
+Global F1 = E{`i' % 10}*E2*E3*E4;
+#enddo
+.sort
+.end
+assert succeeded?
+*--#] Issue808 :

sources/store.c

@@ -3207,7 +3207,7 @@ RENUMBER GetTable(WORD expr, POSITION *position, WORD mode)
 					WCOPY(buffer, AS.Olduflags, AS.NumOldNumFactors);
 					M_free(AS.Olduflags, "uflags pointers");
 				}
-				AS.Oldvflags = buffer;
+				AS.Olduflags = buffer;
 
 				AS.NumOldNumFactors = capacity;
 			}