--- a/lisp/etags.el	Mon Aug 13 11:32:27 2007 +0200
+++ b/lisp/etags.el	Mon Aug 13 11:33:38 2007 +0200
@@ -598,11 +598,8 @@
 	       (format "%s(default %s) " prompt default)
 	     prompt)
 	   tag-completion-table 'tag-completion-predicate nil nil
-	   'find-tag-history))
-    (if (string-equal tag-name "")
-	;; #### - This is a really LAME way of doing it!  --Stig
-	default			;indicate exact symbol match
-      tag-name)))
+	   'find-tag-history default))
+    tag-name))
 
 (defvar last-tag-data nil
   "Information for continuing a tag search.