diff --git a/Changes b/Changes
index a442df8..7d51283 100644
--- a/Changes
+++ b/Changes
@@ -1,3 +1,7 @@
+2002/09/12
+  Fix "Could not print" error message in the TcpServer object. (Thanks
+  to Ross Mueller <ross@visual.com>)
+
 2002/09/10
   dnsbl plugin queues lookups in the background upon connect but
   doesn't block for the results until they are needed, greatly
diff --git a/lib/Qpsmtpd/TcpServer.pm b/lib/Qpsmtpd/TcpServer.pm
index 8df452a..a2885b8 100644
--- a/lib/Qpsmtpd/TcpServer.pm
+++ b/lib/Qpsmtpd/TcpServer.pm
@@ -27,12 +27,13 @@ sub run {
     $self->start_conversation;
 
     # this should really be the loop and read_input should just get one line; I think
-    
+
     $self->read_input;
 }
 
 sub read_input {
   my $self = shift;
+
   my $timeout = $self->config('timeout');
   alarm $timeout;
   while (<STDIN>) {
@@ -50,7 +51,7 @@ sub respond {
   while (my $msg = shift @messages) {
     my $line = $code . (@messages?"-":" ").$msg;
     $self->log(1, "$line");
-    print "$line\r\n" or ($self->log("Could not print [$line]: $!"), return 0);
+    print "$line\r\n" or ($self->log(1, "Could not print [$line]: $!"), return 0);
   }
   return 1;
 }