sandbox fix

genswf8.ml

@@ -1437,7 +1437,7 @@ let generate file ver header infile types hres =
 		| None ->
 			let header , bg = (match header with None -> default_header ver | Some h -> convert_header ver h) in
 			let tagbg = tag (TSetBgColor { cr = bg lsr 16; cg = (bg lsr 8) land 0xFF; cb = bg land 0xFF }) in
-			let tagstart = (if ver >= 8 then [tag (TSandbox SBLocal);tagbg] else [tagbg]) in
+			let tagstart = (if ver >= 8 then [tag (TSandbox (if ver = 9 then SBUnknown 8 else SBLocal));tagbg] else [tagbg]) in
 			let tagshow = tag TShowFrame in
 			(header,tagstart @ tagclips() @ tag_code @ [tagshow])
 		| Some file ->