diff --git a/Diya/OpenGLSL.class.st b/Diya/OpenGLSL.class.st
index ee47fe6..83bb4f5 100644
--- a/Diya/OpenGLSL.class.st
+++ b/Diya/OpenGLSL.class.st
@@ -117,6 +117,7 @@ OpenGLSL >> checkStatus:status of: id [
 	|infoLength buffer result|
 	result  := FFIExternalArray externalNewType: GLint size: 1.
 	infoLength := FFIExternalArray externalNewType: GLint size: 1.
+	infoLength at: 1 put: 0.
 	infoLength autoRelease.
 	result autoRelease.
 	OpenGLSL getShaderiv: id parameterName: status  params: result getHandle.