# This version crashes.
package require Tclsdl
set screen [sdl::surface -width 640 -height 480 -bpp 32]
vwait forever

# This version does not crash.
package require Tclsdl
package require Tk
set screen [sdl::surface -width 640 -height 480 -bpp 32]
vwait forever

# This version does not crash.
package require Tclsdl
set screen [sdl::surface -width 640 -height 480 -bpp 32]
catch {wm withdraw .}
vwait forever