diff --git a/examples/getObj.hs b/examples/getObj.hs
index 1e63ea7..e44321b 100644
--- a/examples/getObj.hs
+++ b/examples/getObj.hs
@@ -21,9 +21,9 @@ import Text.Read (readMaybe)
 
 decodedStream :: Object -> Object
 decodedStream object =
-  maybe object replaceContent $ r StreamContent object
+  maybe object forceClear $ r StreamContent object
   where
-    replaceContent streamContent = object {streamContent}
+    forceClear streamContent = object {streamContent}
 
 display :: Output a => ReaderT Layer Error a -> Document -> Either String ByteString
 display getter (Document {eolStyle, layers}) =