diff --git a/ghcjs-dom-javascript.cabal b/ghcjs-dom-javascript.cabal
--- a/ghcjs-dom-javascript.cabal
+++ b/ghcjs-dom-javascript.cabal
@@ -1,6 +1,6 @@
 cabal-version: 3.6
 name: ghcjs-dom-javascript
-version: 0.9.9.1
+version: 0.9.9.2
 build-type: Simple
 license: MIT
 license-file: LICENSE
diff --git a/src/GHCJS/DOM/Types.hs b/src/GHCJS/DOM/Types.hs
--- a/src/GHCJS/DOM/Types.hs
+++ b/src/GHCJS/DOM/Types.hs
@@ -1044,10 +1044,10 @@
 
 newtype GType = GType JSVal
 
-foreign import javascript unsafe "$r = $1.name;" gTypeToString :: GType -> JSString
+foreign import javascript unsafe "(($1) => $1.name)" gTypeToString :: GType -> JSString
 
 foreign import javascript unsafe
-  "$1===$2" js_eq :: JSVal -> JSVal -> Bool
+  "(($1, $2) => $1===$2)" js_eq :: JSVal -> JSVal -> Bool
 
 strictEqual :: (ToJSVal a, ToJSVal b) => a -> b -> JSM Bool
 strictEqual a b = do
@@ -1055,7 +1055,7 @@
     bval <- toJSVal b
     return $ js_eq aval bval
 
-foreign import javascript unsafe "h$isInstanceOf $1 $2"
+foreign import javascript unsafe "h$isInstanceOf"
     typeInstanceIsA' :: JSVal -> JSVal -> Bool
 
 typeInstanceIsA o (GType t) = typeInstanceIsA' o t
@@ -1155,7 +1155,7 @@
 
 foreign import javascript unsafe "Object" gTypeGObject :: GType
 
-foreign import javascript unsafe "$1[\"toString\"]()" js_objectToString :: GObject -> IO JSString
+foreign import javascript unsafe "(($1) => $1[\"toString\"]())" js_objectToString :: GObject -> IO JSString
 
 objectToString :: (MonadIO m, IsGObject self, FromJSString result) => self -> m result
 objectToString self = liftIO (fromJSString <$> js_objectToString (toGObject self))