diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,3 +1,9 @@
+2.13.1.1
+--------
+* Aftermath for the `glClearNamedFramebufferfi` chaos in the OpenGL registry,
+  see the corresponding
+  [issue](https://www.khronos.org/bugzilla/show_bug.cgi?id=1394) on Khronos.
+
 2.13.1.0
 --------
 * Added `extensionSupported`.
diff --git a/OpenGL.cabal b/OpenGL.cabal
--- a/OpenGL.cabal
+++ b/OpenGL.cabal
@@ -1,5 +1,5 @@
 name: OpenGL
-version: 2.13.1.0
+version: 2.13.1.1
 synopsis: A binding for the OpenGL graphics system
 description:
   A Haskell binding for the OpenGL graphics system (GL, version 4.5) and its
@@ -155,7 +155,7 @@
     transformers >= 0.2   && < 0.5,
     ObjectName   >= 1.1   && < 1.2,
     StateVar     >= 1.1   && < 1.2,
-    OpenGLRaw    >= 2.5.5 && < 2.7,
+    OpenGLRaw    >= 2.6.1 && < 2.7,
     GLURaw       >= 1.3   && < 1.6
   default-language: Haskell2010
   other-extensions:
diff --git a/src/Graphics/Rendering/OpenGL/GL/Framebuffer.hs b/src/Graphics/Rendering/OpenGL/GL/Framebuffer.hs
--- a/src/Graphics/Rendering/OpenGL/GL/Framebuffer.hs
+++ b/src/Graphics/Rendering/OpenGL/GL/Framebuffer.hs
@@ -388,7 +388,7 @@
    ClearStencilBuffer s ->
       with s $ glClearNamedFramebufferiv f gl_STENCIL 0
    ClearDepthAndStencilBuffers d s ->
-      glClearNamedFramebufferfi f gl_DEPTH_STENCIL d s
+      glClearNamedFramebufferfi f gl_DEPTH_STENCIL 0 d s
    where f = framebufferID fbo
 
 --------------------------------------------------------------------------------
diff --git a/src/Graphics/Rendering/OpenGL/GL/Shaders/Uniform.hs b/src/Graphics/Rendering/OpenGL/GL/Shaders/Uniform.hs
--- a/src/Graphics/Rendering/OpenGL/GL/Shaders/Uniform.hs
+++ b/src/Graphics/Rendering/OpenGL/GL/Shaders/Uniform.hs
@@ -120,6 +120,19 @@
    uniform3v (UniformLocation ul) = glUniform3fv ul
    uniform4v (UniformLocation ul) = glUniform4fv ul
 
+instance UniformComponent GLdouble where
+   uniform1 (UniformLocation ul) = glUniform1d ul
+   uniform2 (UniformLocation ul) = glUniform2d ul
+   uniform3 (UniformLocation ul) = glUniform3d ul
+   uniform4 (UniformLocation ul) = glUniform4d ul
+
+   getUniform (Program p) (UniformLocation ul) = glGetUniformdv p ul . castPtr
+
+   uniform1v (UniformLocation ul) = glUniform1dv ul
+   uniform2v (UniformLocation ul) = glUniform2dv ul
+   uniform3v (UniformLocation ul) = glUniform3dv ul
+   uniform4v (UniformLocation ul) = glUniform4dv ul
+
 --------------------------------------------------------------------------------
 
 class Uniform a where