diff --git a/tests/webtbs/tw3467.pp b/tests/webtbs/tw3467.pp
index e534e2bd68..a0324ece11 100644
--- a/tests/webtbs/tw3467.pp
+++ b/tests/webtbs/tw3467.pp
@@ -36,7 +36,7 @@ procedure tthread1.execute;
 var
   i: integer;
 begin
-  writeln('thread 1 var is @', ptrint(@athreadvar));
+  writeln('thread 1 var is @$', hexstr(@athreadvar));
     athreadvar := 1;
     p:=@athreadvar;
    Sleep(2000);
@@ -53,7 +53,7 @@ procedure tthread2.execute;
 var
   i: integer;
 begin
-  writeln('thread 2 var is @', ptrint(@athreadvar));
+  writeln('thread 2 var is @$', hexstr(@athreadvar));
     athreadvar := 9;
     p:=@athreadvar;
    Sleep(2000);