--- deliantra/Deliantra-Client/DC/UI.pm	2007/04/23 19:17:41	1.366
+++ deliantra/Deliantra-Client/DC/UI.pm	2007/04/27 00:59:14	1.367
@@ -1972,6 +1972,8 @@
 
    my $text = $self->get_text;
 
+   $self->{cursor} = List::Util::max 0, List::Util::min $self->{cursor}, length $text;
+
    if ($uni == 8) {
       substr $text, --$self->{cursor}, 1, "" if $self->{cursor};
    } elsif ($uni == 127) {