@@ -512,9 +512,9 @@
               (unless (cadddr (syntax-ppss))
                 (replace-match "nil")))))
         (save-excursion
           (save-match-data
-            (while (search-forward "#f" nil t)
+            (while (search-forward "#t" nil t)
               (unless (cadddr (syntax-ppss))
                 (replace-match "t")))))
         (let ((thread (read (current-buffer))))
           (with-current-buffer buf