diff --git a/TODO.FACTOR.txt b/TODO.FACTOR.txt
index 9ea7eb5e91..b9defe17fa 100644
--- a/TODO.FACTOR.txt
+++ b/TODO.FACTOR.txt
@@ -1,4 +1,3 @@
-- examples/canvas: free display lists
 - fix remaining HTML stream issues
 - help cross-referencing
 - UI browser pane needs 'back' button
diff --git a/examples/canvas.factor b/examples/canvas.factor
index 7b93497e02..65270eda95 100644
--- a/examples/canvas.factor
+++ b/examples/canvas.factor
@@ -49,6 +49,9 @@ M: canvas add-notify* ( gadget -- )
     dup canvas-quot GL_COMPILE [ with-scope ] make-dlist
     swap set-canvas-id ;
 
+M: canvas remove-notify* ( gadget -- )
+    canvas-id 1 glDeleteLists ;
+
 M: canvas draw-gadget* ( gadget -- )
     GL_MODELVIEW [
         dup rect-dim 2 v/n gl-translate