bug in clojure 1.2 case

;; There appears to be a bug in Clojure 1.2's "case" macro.  It doesn't work with *global* strings.  I'll show some examples and a temporary work around.

(def *a* "a")

;true
(case "a"
 "a" true
 false) ;true

;true
(case *a*
 "a" true
 false) 

;false!
(case "a"
 *a* true
 false)
 
;false!!
(case *a*
 *a* true
 false) 

;still false!
(let [a *a*]
 (case "a"
   a true
   false)) 

;true
(condp = *a*
 *a* true
 false)

;this can be used as a temporary fix
(defmacro case-slow [e & clauses]
 `(condp = ~e ~@clauses))

;true
(case-safe *a*
 *a* true
 false)