- fix typo in AddGroup title

1 files changed, 1 insertions, 1 deletions

diff --git a/userdrake b/userdrake
index 620d081..6acce7a 100755
--- a/userdrake
+++ b/userdrake
@@ -391,7 +391,7 @@ sub GimmeChoice {
     $choice;
 }     
 sub AddGroup {
-    my $w = ugtk2->new(N("Create New User"), grab => 1, if_(!$::isEmbedded,transient => $us->{wnd}->{rwindow}));
+    my $w = ugtk2->new(N("Create New Group"), grab => 1, if_(!$::isEmbedded,transient => $us->{wnd}->{rwindow}));
     my $mode = 0; my %g; my $is_system = 0;
     gtkadd($w->{window},
 	   gtkpack_(Gtk2::VBox->new(0, 2),