--- dns.el~	2002-04-30 02:01:11 +0000
+++ dns.el	2002-08-23 02:40:55 +0000
@@ -328,7 +328,7 @@
 	(delete-process process))
       (when tcp-p
 	(goto-char (point-min))
-	(delete-region (point) (+ (point) 2)))
+	(delete-region (point) (min (+ (point) 2) (point-max))))
       (unless (zerop (buffer-size))
 	(let ((result (dns-read (buffer-string))))
 	  (if fullp