diff --git a/components/turbopower_ipro/iphtml.pas b/components/turbopower_ipro/iphtml.pas
index d62406fa3a..05ae61ecec 100644
--- a/components/turbopower_ipro/iphtml.pas
+++ b/components/turbopower_ipro/iphtml.pas
@@ -3787,7 +3787,7 @@ end;
 
 function dbgs(et: TElementType): string;
 begin
-  str(et,Result);
+  writestr(Result,et);
 end;
 
 procedure Register;