--- Revision 323563663339
+++ Revision 376262666637
@@ -5,10 +5,8 @@
 Function ArrayShuffle(ByVal src())
 	Dim res
 	res = ArrayCopy(src)
-	Dim u
-	u = UBound(res)
 	Dim i
-	For i = u To 1 Step -1
+	For i = UBound(res) To 1 Step -1
 		Dim j
 		j = NumberRandom(0, i + 1)
 		Dim t