diff --git a/collects/mred/mred.ss b/collects/mred/mred.ss
index 4fa5b8ea..af3b49e7 100644
--- a/collects/mred/mred.ss
+++ b/collects/mred/mred.ss
@@ -4850,13 +4850,7 @@
 		    wx)
 		  (lambda ()
 		    (let ([cwho '(constructor canvas)])
-		      (check-container-ready cwho parent)
-		      (when (memq 'gl style)
-			(unless (or (eq? (system-type) 'windows)
-				    (eq? (system-type) 'unix))
-			  (raise-mismatch-error (who->name cwho)
-						"the 'gl style flag is not supported on this platform: "
-						style)))))
+		      (check-container-ready cwho parent)))
 		  parent)
       (when label
 	(set-label label))