                  {:protocols (-> tsym meta :protocols)}
                  (when-let [line (:line env)]
                    {:file *cljs-file*
-                    :line line
-                    :column (:column env)})))))
+                    :line (get-line tsym env)
+                    :column (get-col tsym env)})))))
     {:env env :op :deftype* :form form :t t :fields fields :pmasks pmasks}))
 
 (defmethod parse 'defrecord*

               (assert (not (or (namespace name) (.contains (str name) "."))) (str "Invalid local name: " name))
               (let [init-expr (analyze env init)
                     be {:name name
                         :init init-expr
                         :tag (or (-> name meta :tag)
                                  (-> init-expr :tag)

                   (when doc {:doc doc})
                   (when dynamic {:dynamic true})
                   (when-let [line (:line env)]
                     {:file *cljs-file*
                      :line (get-line name env)
                      :column (get-col name env)})
                   ;; the protocol a protocol fn belongs to
                   (when protocol
                     {:protocol protocol})
