--- rt-2.0-to-dumpfile.orig	2003-05-06 13:15:20.000000000 -0400
+++ rt-2.0-to-dumpfile	2003-05-06 16:09:25.000000000 -0400
@@ -106,12 +106,12 @@
     foreach my $keysel ( @{ $global_ks->ItemsArrayRef } ) {
 
         foreach my $param ( sort keys %$global_ksacc, 'id' ) {
-            $ds->{Global}->{ $keysel->id }->{$param} = $keysel->_Value($param)
+            $ds->{Global}->{'CustomField'}->{ $keysel->id }->{$param} = $keysel->_Value($param)
               if ( $keysel->_Value($param) );
         }
         my $descendents = $keysel->KeywordObj->Descendents;
         foreach my $desc ( keys %{$descendents} ) {
-            push @{ $ds->{Global}->{ $keysel->id }->{Value} },
+            push @{ $ds->{Global}->{'CustomField'}->{ $keysel->id }->{Value} },
               $descendents->{$desc};
 
         }
--- dumpfile-to-rt-3.0.~1~	2003-05-06 14:17:26.000000000 -0400
+++ dumpfile-to-rt-3.0	2003-05-06 16:09:12.000000000 -0400
@@ -184,7 +184,7 @@
                         Right  => $right->{'Name'} );
 }
 
-foreach my $cf ( @{ $VAR1->{'Global'}->{'CustomField'} } ) {
+foreach my $cf ( values %{ $VAR1->{'Global'}->{'CustomField'} } ) {
     my $type;
     my $cfobj = RT::CustomField->new($RT::SystemUser);
     if ( $cf->{'Single'} ) {