diff --git a/lib/WebGUI/Group.pm b/lib/WebGUI/Group.pm
index 0093c2ecc..61cbeb126 100755
--- a/lib/WebGUI/Group.pm
+++ b/lib/WebGUI/Group.pm
@@ -418,6 +418,8 @@ sub expireOffset {
 =head2 find ( session, name )
 
 An alternative to the constructor "new", use find as a constructor by name rather than id.
+Returns the first group with that name found.  There is no guaranteed order of the search
+to be sure not to create groups with the same name!
 
 =head3 session
 
diff --git a/t/Group.t b/t/Group.t
index 1488c2ffc..bc5c261ec 100644
--- a/t/Group.t
+++ b/t/Group.t
@@ -18,31 +18,47 @@ use WebGUI::Utility;
 
 use WebGUI::User;
 use WebGUI::Group;
-use Test::More tests => 8; # increment this value for each test you create
+use Test::More tests => 21; # increment this value for each test you create
 
 my $session = WebGUI::Test->session;
 
 my $g = WebGUI::Group->new($session, "new");
 
 diag("Object creation and defaults");
-is( ref $g, "WebGUI::Group", "Group object creation");
+is (ref $g, "WebGUI::Group", "Group object creation");
 my $gid = $g->getId;
-isnt( $gid, "new", "Group assigned new groupId, not new");
-is( length($gid), 22, "GroupId is proper length");
+isnt ($gid, "new", "Group assigned new groupId, not new");
+is (length($gid), 22, "GroupId is proper length");
+is ($g->name(), 'New Group', 'Default name');
+is ($g->expireOffset(), 314496000, 'Default karma threshold');
+is ($g->karmaThreshold(), 1_000_000_000, 'Default karma threshold');
+is ($g->expireNotifyOffset(), -14, 'Default expire notify offset time');
+is ($g->deleteOffset(), 14, 'Default delete offset time');
+is ($g->expireNotify(), 0, 'Default expire notify time');
+is ($g->databaseLinkId(), 0, 'Default databaseLinkId');
+is ($g->dbCacheTimeout(), 3600, 'Default external database cache timeout');
+is ($g->dateCreated(), $g->lastUpdated(), 'lastUpdated = create time');
+is_deeply ($g->getGroupsIn(), [3], 'Admin group added by default to this group');
 
-is ($g->name('**TestGroup**'), '**TestGroup**', 'Set name');
-is ($g->name(), '**TestGroup**', 'Get name via accessor');
-is ($g->get('groupName'), '**TestGroup**', 'Get name via generic accessor');
+my $gname = '**TestGroup**';
+is ($g->name($gname), $gname, 'Set name');
+is ($g->name(), $gname, 'Get name via accessor');
+is ($g->get('groupName'), $gname, 'Get name via generic accessor');
 
-my $g2 = WebGUI::Group->find($session, '**TestGroup**');
+my $g2 = WebGUI::Group->find($session, $gname);
 my $skipFindGroup = is(ref $g2, 'WebGUI::Group', 'find returns a group');
 
 SKIP: {
 	skip('find did not return a WebGUI::Group object', !$skipFindGroup);
 	is( $g->getId, $g2->getId, 'find returns correct group');
 }
-
 undef $g2;
+
+delete $g->{_group};
+ok( !exists $g->{_group}, 'deleted group property hash');
+is( $g->name, $gname, 'group name restored');
+ok( exists $g->{_group}, 'group property hash restored');
+
 $g->delete();
 
 my $matchingGroups = $session->db->quickArray("select groupId from groups where groupId=".$session->db->quote($gid));