Problem with table containing underscores

[r0man]

The following query

(defn select-contact-classes-1 [campaign-id max-class]
  (-> (table :campaign_contact_classes)
      (select (where (and (= :campaign_id campaign-id)
                          (< :contact_class max-class))))))

should produce

SELECT campaign_contact_classes.*
  FROM campaign_contact_classes
 WHERE ((campaign_contact_classes.campaign_id = 9796)
   AND (campaign_contact_classes.contact_class < 8))

but does this instead:

SELECT campaign_contact_classes.*
  FROM campaign_contact_classes
 WHERE ((campaign_campaign_contact_classes.contact_classes.campaign_id = 9796)
   AND (campaign_contact_classes.contact_class < 8))