diff --git a/drawing.lisp b/drawing.lisp
index 06cbc33..2680410 100644
--- a/drawing.lisp
+++ b/drawing.lisp
@@ -78,7 +78,7 @@
 
 (defmethod initialize-instance :after ((ctx graphics-context) &key)
   (with-slots (window renderer width height) ctx
-    (sdl2:init)
+    (sdl2:init :video)
     (setf window
           (sdl2:create-window :title "Simulation"
                               :w width :h height