Index: gcalctool/functions.c
===================================================================
RCS file: /cvs/gnome/gcalctool/gcalctool/functions.c,v
retrieving revision 1.15
diff -u -r1.15 functions.c
--- gcalctool/functions.c	18 Feb 2003 16:09:53 -0000	1.15
+++ gcalctool/functions.c	19 Feb 2003 07:39:57 -0000
@@ -386,7 +386,7 @@
 void
 do_delete()     /* Remove the last numeric character typed. */
 {
-    if (strlen(v->display)) {
+    if (strlen(v->display) > 1) {
         v->display[strlen(v->display)-1] = '\0';
     }
 
