* also enable published for TObjA so that the test fails for the correct reason

git-svn-id: trunk@40704 -

tests/webtbf/tw34691.pp

@@ -10,11 +10,12 @@ uses
   Classes, SysUtils;
 
 type
+  {$M+}
   TObjA = class
+  public
     Icon: String;
   end;
 
-  {$M+}
   TObjB = class
     FObjA: TObjA;