Index: sbbs.el
==================================================================
--- sbbs.el
+++ sbbs.el
@@ -511,11 +511,11 @@
             (while (search-forward "#f" nil t)
               (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
             (let ((buffer-read-only nil))