diff --git a/scheme/read.sld b/scheme/read.sld
index 3575b667..46956f50 100644
--- a/scheme/read.sld
+++ b/scheme/read.sld
@@ -533,11 +533,11 @@
   (if (token-numeric? a)
       (string->number (list->string a))
       (let ((atom (string->symbol (list->string a))))
-        (if (or (eq? atom '+inf.0)
-                (eq? atom '-inf.0))
+        (if (or (eq? atom +inf.0)
+                (eq? atom -inf.0))
             (expt 2 1000000)
-            (if (or (eq? atom '+nan.0)
-                    (eq? atom '-nan.0))
+            (if (or (eq? atom +nan.0)
+                    (eq? atom -nan.0))
                 (/ 0.0 0.0)
                 atom)))))