diff --git a/checkin_notes b/checkin_notes
index 1ede108823..65ed61b7a9 100644
--- a/checkin_notes
+++ b/checkin_notes
@@ -3679,3 +3679,15 @@ Charlie 7 Apr 2009
 
     clientgui/
         ProjectListCtrl.cpp
+
+David  8 Apr 2009
+    - Add "html/ops/purge_profile.php" script to help admins locate
+        and remove spam profiles
+
+    html/
+        inc/
+            email.inc
+        ops/
+            purge_profile.php
+        user/
+            mail_passwd.php
diff --git a/html/inc/email.inc b/html/inc/email.inc
index 6cf405416c..8676dfe3b8 100644
--- a/html/inc/email.inc
+++ b/html/inc/email.inc
@@ -34,7 +34,7 @@ if (isset($USE_PHPMAILER)) {
     $USE_PHPMAILER = false;
 }
 
-// Function sends an email, either using PHPMailer or not.
+// send an email, using PHPMailer or not.
 //
 function send_email($user, $subject, $body, $body_html=null) {
     global $USE_PHPMAILER;
@@ -90,7 +90,7 @@ function send_auth_email($user) {
     $x = md5($user->id.$user->authenticator.$now);
     $x = substr($x, 0, 16);
     $subject = PROJECT." account information";
-    $body = "This email was sent in reponse to a request on the ".PROJECT." web site.
+    $body = "This email was sent in response to a request on the ".PROJECT." web site.
 
 To log in to your ".PROJECT." account, visit:
 ".$master_url."login_action.php?id=$user->id&t=$now&h=$x
diff --git a/html/ops/purge_profile.php b/html/ops/purge_profile.php
new file mode 100644
index 0000000000..4a2d8baf55
--- /dev/null
+++ b/html/ops/purge_profile.php
@@ -0,0 +1,25 @@
+<?php
+
+// Script to help you purge spam profiles.
+//
+// To use: do the following query from mysql:
+//
+// select name, id  from user, profile where user.id=profile.userid and match(response1, response2) against ('Viagra');
+// (replace "Viagra" with other keywords)
+//
+// Then copy the ids into the array below and run this script
+
+require_once("../inc/db.inc");
+db_init();
+
+$ids = array(
+        9031517,
+        9031518,
+);
+
+foreach ($ids as $id) {
+    mysql_query("delete from user where id=$id");
+    mysql_query("delete from profile where userid=$id");
+}
+
+?>
diff --git a/html/user/mail_passwd.php b/html/user/mail_passwd.php
index 47a6f5706b..8eb3fb5e15 100644
--- a/html/user/mail_passwd.php
+++ b/html/user/mail_passwd.php
@@ -61,7 +61,7 @@ if (!$user) {
 			email_sent_message($email_addr);
 		} else {
             page_head("Email failed");
-			echo "Can't send email to $user->email_addr: $retval";
+			echo "Can't send email to $user->email_addr";
 		}
 	}
 }