--- a/lisp/descr-text.el	Sat Jan 22 00:59:20 2011 +0100
+++ b/lisp/descr-text.el	Mon Feb 07 21:22:17 2011 +0100
@@ -596,7 +596,7 @@
 					(concat message
 						(make-string
 						 (mod loop-count 44) ?.)))
-	  (block 'dealing-with-chars
+	  (block dealing-with-chars
 	    (when (= buffer-size (- (point-max) (point-min)))
 	      ;; If we're in the body of the file, we need to delete the
 	      ;; character info for the last character, and set offset-end
@@ -635,13 +635,13 @@
 	    (while t
 	      (when (= (point) (point-max))
 		;; We're at the end of this part of the file.
-		(return-from 'dealing-with-chars))
+		(return-from dealing-with-chars))
 
 	      (unless (re-search-forward "^\\(U\\+[0-9A-F]\\{4,6\\}\\)\t"
 					 nil t)
 		;; We're probably in the comments at the start of the
 		;; file. No need to look for character info.
-		(return-from 'dealing-with-chars))
+		(return-from dealing-with-chars))
 
 	      ;; Store where the character started. 
 	      (beginning-of-line)