diff --git a/extra/cap/cap.factor b/extra/cap/cap.factor
index 9f633455b7..42139db359 100644
--- a/extra/cap/cap.factor
+++ b/extra/cap/cap.factor
@@ -12,7 +12,7 @@ IN: cap
     [ gl-scale ] bi@ * >fixnum <byte-array> ;
 
 : gl-screenshot ( gadget -- byte-array )
-    [ find-world handle>> select-gl-context ]
+    [ find-gl-context ]
     [
         [
             GL_BACK glReadBuffer