Index: exp_ch5.adb
===================================================================
--- exp_ch5.adb	(revision 195792)
+++ exp_ch5.adb	(working copy)
@@ -2476,7 +2476,8 @@
                   --  the assignment we generate run-time check to ensure that
                   --  the tags of source and target match.
 
-                  if Is_Class_Wide_Type (Typ)
+                  if not Tag_Checks_Suppressed (Typ)
+                    and then Is_Class_Wide_Type (Typ)
                     and then Is_Tagged_Type (Typ)
                     and then Is_Tagged_Type (Underlying_Type (Etype (Rhs)))
                   then