ui.pixel-formats: fix screwup

diff --git a/basis/ui/pixel-formats/pixel-formats.factor b/basis/ui/pixel-formats/pixel-formats.factor
index b902521079b03db9a8ced6123ae73ebd7e7f9f81..f463ae2b687fec53180373cd0cda9c86b4b0cd4a 100644 (file)
--- a/basis/ui/pixel-formats/pixel-formats.factor
+++ b/basis/ui/pixel-formats/pixel-formats.factor
@@ -50,7 +50,7 @@ TUPLE: pixel-format < disposable world handle ;
 
 : <pixel-format> ( world attributes -- pixel-format )
     2dup (make-pixel-format)
-    [ pixel-format new swap >>handle swap >>world ]
+    [ pixel-format new-disposable swap >>handle swap >>world ]
     [ invalid-pixel-format-attributes ]
     ?if ;