--- a/mojoshader_opengl.c	Thu Jul 31 19:05:57 2008 -0400
+++ b/mojoshader_opengl.c	Thu Jul 31 19:15:06 2008 -0400
@@ -1148,6 +1148,7 @@
                 fill_constant_array(f, base, size, pd);
                 ctx->profileUseProgramObject(program);
                 ctx->profileUniform4fv(pd, loc, size, f);
+                ctx->profileUseProgramObject(ctx->bound_program);
             } // if
             else
             {