diff --git a/Graphics/Rendering/Hieroglyph/GLUT.hs b/Graphics/Rendering/Hieroglyph/GLUT.hs
--- a/Graphics/Rendering/Hieroglyph/GLUT.hs
+++ b/Graphics/Rendering/Hieroglyph/GLUT.hs
@@ -85,7 +85,7 @@
             Buster.busIteration mv behaviour
             loop mv
 
-    let mk = bindMouseKeyboardWidget "window"
+    let mk = bindMouseKeyboardWidget "Hieroglyph"
     mk evBus
     loop evBus
 
diff --git a/Hieroglyph.cabal b/Hieroglyph.cabal
--- a/Hieroglyph.cabal
+++ b/Hieroglyph.cabal
@@ -1,5 +1,5 @@
 name: Hieroglyph
-version: 3.88
+version: 3.89
 cabal-version: >=1.2
 build-type: Simple
 license: BSD3