diff --git a/protogeni/lib/GeniAggregate.pm.in b/protogeni/lib/GeniAggregate.pm.in
index 3de8016dc099b609c73959cd9d4c93a4716fa0ce..97610ac0a87081756f4f51ea7304561194adb105 100755
--- a/protogeni/lib/GeniAggregate.pm.in
+++ b/protogeni/lib/GeniAggregate.pm.in
@@ -2146,7 +2146,7 @@ sub Create($$$$$$)
 	return undef;
     }
     # We support gre and egre, only.
-    my $tunnel_type = GeniXML::TunnelStyle($linkrspec);
+    my $tunnel_type = GeniXML::TunnelType($linkrspec);
     if (!defined($tunnel_type)) {
 	print STDERR "Could not create tunnel aggregate: Bad tunnel type\n";
 	print STDERR GeniXML::Serialize($linkrspec, 1);