diff --git a/Utils/gen-card.pl b/Utils/gen-card.pl
index 8d4d633cf24..21d4ba1f30f 100755
--- a/Utils/gen-card.pl
+++ b/Utils/gen-card.pl
@@ -181,7 +181,7 @@ while ($type =~ m/([a-zA-Z]+)( )*/g) {
             $vars{'subType'} .= "\n        this.subtype.add(\"$1\");";
         } else {
             my $st = uc($1);
-            $vars{'subType'} .= "\n        addSuperType(Supertype.$st);";
+            $vars{'subType'} .= "\n        addSuperType(SuperType.$st);";
         }
     }
 }