diff --git a/src/DearImGui.hs b/src/DearImGui.hs
index bae700f..80a1495 100644
--- a/src/DearImGui.hs
+++ b/src/DearImGui.hs
@@ -296,7 +296,7 @@ sameLine = liftIO do
 text :: MonadIO m => String -> m ()
 text t = liftIO do
   withCString t \textPtr ->
-    [C.exp| void { Text($(char* textPtr)) } |]
+    [C.exp| void { Text("%s", $(char* textPtr)) } |]
 
 
 -- | A button. Returns 'True' when clicked.