diff --git a/jvm.cabal b/jvm.cabal
--- a/jvm.cabal
+++ b/jvm.cabal
@@ -1,5 +1,5 @@
 name:                jvm
-version:             0.1.1
+version:             0.1.2
 synopsis:            Call JVM methods from Haskell.
 description:         Please see README.md.
 homepage:            http://github.com/tweag/inline-java/tree/master/jvm#readme
diff --git a/src/Language/Java.hs b/src/Language/Java.hs
--- a/src/Language/Java.hs
+++ b/src/Language/Java.hs
@@ -159,7 +159,7 @@
   => a
   -> Sing sym
 -- Silence redundant constraint warning.
-classOf x = coerce x `seq` sing
+classOf x = sing `const` coerce x
 
 -- | Creates a new instance of the class whose name is resolved from the return
 -- type. For instance,