diff --git a/src/sicp_logic/evaluator.clj b/src/sicp_logic/evaluator.clj
index 6a85d66..430762c 100644
--- a/src/sicp_logic/evaluator.clj
+++ b/src/sicp_logic/evaluator.clj
@@ -80,7 +80,7 @@
 
 (defn rule-body [rule]
   "Selects the rule's body"
-  (or (second rule) :always-true))
+  (or (second rule) [:always-true]))
 
 (defn apply-a-rule [db rule query frame]
   "Applies the `rule` to the `query` in the