diff --git a/lib/WebGUI/User.pm b/lib/WebGUI/User.pm
index 838dfb344..28bab2d24 100644
--- a/lib/WebGUI/User.pm
+++ b/lib/WebGUI/User.pm
@@ -27,6 +27,8 @@ use WebGUI::Friends;
 use WebGUI::Deprecate;
 use Carp qw( carp );
 
+my %deprecateMessage = ();
+
 =head1 NAME
 
 Package WebGUI::User
@@ -209,7 +211,8 @@ Returns an instance of the authentication object for this user.
 
 # DEPRECATED. Remove in 9.0
 sub authInstance {
-    carp "WebGUI::User::authInstance is deprecated. Instantiate the auth method directly instead.";
+    my $message = "WebGUI::User::authInstance is deprecated. Instantiate the auth method directly instead.";
+    carp $message unless $deprecateMessage{$message}++;
     my $self    = shift;
     my $session = $self->session;
 
@@ -1192,7 +1195,8 @@ The value to set the profile field name to.
 
 # DEPRECATED! Remove in 9.0
 sub profileField {
-    carp "WebGUI::User::profileField is deprecated. Use get() and update() instead\n";
+    my $message = "WebGUI::User::profileField is deprecated. Use get() and update() instead\n";
+    carp $message unless $deprecateMessage{$message}++;
     my $self        = shift;
     my $fieldName   = shift;
     my $value       = shift;