Fix order of tests (as --run params, not as list in program)

Libraries/Gast/CommandLine.icl

@@ -48,7 +48,7 @@ exposeProperties globopts ps w
 	= w
 # ps = case opts.test_options.runs of
 	[] -> map (tuple []) ps
-	rs -> [(map (fromOk o parseOpt) r.options, p) \\ p <- ps, r <- rs | r.TestRun.name == testname p]
+	rs -> [(map (fromOk o parseOpt) r.options, p) \\ r <- rs, p <- ps | r.TestRun.name == testname p]
 # ps = filter (\p -> not (isMember (testname p) opts.test_options.skip)) ps
 # io = foldl (<<<) io $ concatMap (test opts.global_options) ps
 # (_,w) = fclose io w