Description: <short summary of the patch>
 TODO: Put a short summary on the line above and replace this paragraph
 with a longer explanation of this change. Complete the meta-information
 with other relevant fields (see below for details). To make it easier, the
 information below has been extracted from the changelog. Adjust it or drop
 it.
 .
 axiom (20120301-1) unstable; urgency=low
 .
   * New upstream release
   * remove special NO_STRIP for ppc
   * Bug fix: "please try stripping binary on powerpc again", thanks to
     Jonathan Nieder (Closes: #645570).
   * Bug fix: "binutils: strip produces unusable binary, <a
     href="bugreport.cgi?bug=210923">210923", thanks to Frederic Lehobey
     (Closes: #210809).
   * Bug fix: "Compressed xhtml files", thanks to Ian Zimmerman (Closes:
     #623178).
Author: Camm Maguire <camm@debian.org>
Bug-Debian: http://bugs.debian.org/210809
Bug-Debian: http://bugs.debian.org/623178
Bug-Debian: http://bugs.debian.org/645570

---
The information above should follow the Patch Tagging Guidelines, please
checkout http://dep.debian.net/deps/dep3/ to learn about the format. Here
are templates for supplementary fields that you might want to add:

Origin: <vendor|upstream|other>, <url of original patch>
Bug: <url in upstream bugtracker>
Bug-Debian: http://bugs.debian.org/<bugnumber>
Bug-Ubuntu: https://launchpad.net/bugs/<bugnumber>
Forwarded: <no|not-needed|url proving that it has been forwarded>
Reviewed-By: <name and email of someone who approved the patch>
Last-Update: <YYYY-MM-DD>

--- axiom-20120301.orig/books/bookvol5.pamphlet
+++ axiom-20120301/books/bookvol5.pamphlet
@@ -4108,15 +4108,15 @@ returning the token-dq and the rest of t
    (cond
     ((|startsComment?|) (|scanComment|) nil)
     ((|startsNegComment?|) (|scanNegComment|) nil)
-    ((char= c #\?)
+    ((char= ch #\?)
       (setq |$n| (+ |$n| 1))
       (|lfid| "?"))
     ((|punctuation?| c) (|scanPunct|))
     ((|startsId?| ch) (|scanWord| nil))
-    ((char= c #\space) (|scanSpace|) nil)
-    ((char= c #\") (|scanString|))
+    ((char= ch #\space) (|scanSpace|) nil)
+    ((char= ch #\") (|scanString|))
     ((|digit?| ch) (|scanNumber|))
-    ((char= c #\_) (|scanEscape|))
+    ((char= ch #\_) (|scanEscape|))
     (t (|scanError|))))
   (cond
     ((null b) nil)
