   (assert (keyword-isa? otable-control table-control))
   (let [p (get-row-index-permutator otable-control)]
     (set-row-index-permutator otable-control identity)
-    (.setRowCount (:model otable-control) row-count)
+    (.setRowCount ^DefaultTableModel (:model otable-control) row-count)
     (set-row-index-permutator otable-control p)))
 
 (defn-swing register-keyboard-action

  "Selects a single cell given as view-coordinates in the given table control"
  [otable row column]
  (assert (keyword-isa? otable table-control))
  (.changeSelection (get-control otable) row column false false))

(defn-swing set-value-at-view
  "Sets the value of a cell in the table according to a view position."
  [otable row column contents]
  (assert (keyword-isa? otable table-control))
  (let [columns (get-column-count otable),
        rows  (get-row-count otable)]
    (if (>= column columns)
      (call-hook otable "extend-columns-to" (+ 1 column)))
    (if (>= row rows)
      (call-hook otable "extend-rows-to" (+ 1 row)))
    (.setValueAt (get-control otable) (str contents) row column)))

(defn set-value-at-index
  "Sets the value of a cell in the table according to the model

  "Pastes the current system clipboard contents into the table."
  [obj]
  (assert (keyword-isa? obj table-control))
  (let [^JTable control (get-control obj),
        sel-columns (-> control .getSelectedColumns seq),
        sel-rows    (-> control .getSelectedRows seq),
        col-index   (get-column-index-permutator obj),
