diff --git a/src/cairo-gl-private.h b/src/cairo-gl-private.h
index 04322f248..3dd75f857 100644
--- a/src/cairo-gl-private.h
+++ b/src/cairo-gl-private.h
@@ -522,6 +522,11 @@ _cairo_gl_shader_bind_matrix (cairo_gl_context_t *ctx,
 			      const char *name,
 			      cairo_matrix_t* m);
 
+cairo_private void
+_cairo_gl_shader_bind_matrix4f (cairo_gl_context_t *ctx,
+				const char *name,
+				GLfloat* gl_m);
+
 cairo_private void
 _cairo_gl_shader_bind_texture (cairo_gl_context_t *ctx,
 			       const char *name,
diff --git a/src/cairo-gl-shaders.c b/src/cairo-gl-shaders.c
index a39883d8e..1b10b04a9 100644
--- a/src/cairo-gl-shaders.c
+++ b/src/cairo-gl-shaders.c
@@ -92,6 +92,12 @@ typedef struct cairo_gl_shader_impl {
 		    const char *name,
 		    cairo_matrix_t* m);
 
+    void
+    (*bind_matrix4f) (cairo_gl_context_t *ctx,
+		      cairo_gl_shader_t *shader,
+		      const char *name,
+		      GLfloat* gl_m);
+
     void
     (*bind_texture) (cairo_gl_context_t *ctx,
 		     cairo_gl_shader_t *shader,
@@ -262,6 +268,18 @@ bind_matrix_core_2_0 (cairo_gl_context_t *ctx,
     dispatch->UniformMatrix3fv (location, 1, GL_TRUE, gl_m);
 }
 
+static void
+bind_matrix4f_core_2_0 (cairo_gl_context_t *ctx,
+		        cairo_gl_shader_t *shader,
+		        const char *name,
+		        GLfloat* gl_m)
+{
+    cairo_gl_dispatch_t *dispatch = &ctx->dispatch;
+    GLint location = dispatch->GetUniformLocation (shader->program, name);
+    assert (location != -1);
+    dispatch->UniformMatrix4fv (location, 1, GL_FALSE, gl_m);
+}
+
 static void
 bind_texture_core_2_0 (cairo_gl_context_t *ctx, cairo_gl_shader_t *shader,
 		       const char *name, cairo_gl_tex_t tex_unit)
@@ -292,6 +310,7 @@ static const cairo_gl_shader_impl_t shader_impl_core_2_0 = {
     bind_vec3_core_2_0,
     bind_vec4_core_2_0,
     bind_matrix_core_2_0,
+    bind_matrix4f_core_2_0,
     bind_texture_core_2_0,
     use_program_core_2_0,
 };
@@ -797,6 +816,13 @@ _cairo_gl_shader_bind_matrix (cairo_gl_context_t *ctx,
     ctx->shader_impl->bind_matrix (ctx, ctx->current_shader, name, m);
 }
 
+void
+_cairo_gl_shader_bind_matrix4f (cairo_gl_context_t *ctx,
+				const char *name, GLfloat* gl_m)
+{
+    ctx->shader_impl->bind_matrix4f (ctx, ctx->current_shader, name, gl_m);
+}
+
 void
 _cairo_gl_shader_bind_texture (cairo_gl_context_t *ctx,
 			       const char *name, GLuint tex_unit)