diff --git a/imperative-shell/app-draw.sml b/imperative-shell/app-draw.sml
index 6090883..eb8f7cd 100644
--- a/imperative-shell/app-draw.sml
+++ b/imperative-shell/app-draw.sml
@@ -21,6 +21,8 @@ struct
 
       (* Flag shaders for deletion as we no longer need them 
        * once the program is linked. *)
+      val _ = Gles3.deleteShader vertexShader
+      val _ = Gles3.deleteShader fragmentShader
     in
       {vertexBuffer = vertexBuffer, program = program}
     end