Index: syntax.lsp
===================================================================
--- syntax.lsp	(revision 2163)
+++ syntax.lsp	(working copy)
@@ -87,7 +87,7 @@
           for sym = (and c (read-from-string s))
           unless (or (not c)
                      (and (symbolp sym)
-                          (string= (symbol-name sym) s0)))
+                          (string= (symbol-name sym) (find-symbl s0))))
           collect (progn
                     (when (> (incf count) 100) (loop-finish))
                     (list i c s0 s sym))))
@@ -102,7 +102,7 @@
         repeat 1000
         unless (or (not c)
                    (and (symbolp sym)
-                        (string= (symbol-name sym) s0)))
+                        (string= (symbol-name sym) (find-symbol s0))))
         collect (list i c s0 s sym))
   nil)
 
@@ -128,7 +128,7 @@
           for sym = (and c (not bad) (read-from-string s))
           unless (or bad
                      (and (symbolp sym)
-                          (string= (symbol-name sym) s0)))
+                          (string= (symbol-name sym) (find-symbol s0))))
           collect (progn
                     (when (> (incf count) 100) (loop-finish))
                     (list c s0 s sym))))
@@ -144,7 +144,7 @@
         repeat 1000
         unless (or bad
                    (and (symbolp sym)
-                        (string= (symbol-name sym) s0)))
+                        (string= (symbol-name sym) (find-symbol s0))))
         collect (list c s0 s sym))
   nil)
 
