              (.setLocalSecondaryIndexes (local-indexes hash-keydef indexes)))))]
 
     (if-not block?
-      request-result
+      result
       (do (block-while-table-status creds table-name :creating)
-          request-result))))
+          result))))
 
 (comment (time (create-table mc "delete-me7" [:id :s] {:block? true})))
 

    {:unprocessed (.getUnprocessedItems r)
     :cc-units    (cc-units (.getConsumedCapacity r))})

  DescribeTableResult
  (as-map [r]
    (let [t (.getTable r)]
      {:name          (keyword (.getTableName t))
       :creation-date (.getCreationDateTime t)
       :item-count    (.getItemCount t)
       :size          (.getTableSizeBytes t)
       :throughput    (as-map (.getProvisionedThroughput t))
       :indexes       (as-map (.getLocalSecondaryIndexes t))
       :status        (utils/un-enum (.getTableStatus t))
       :prim-keys
       (let [schema (as-map (.getKeySchema t))
             defs   (as-map (.getAttributeDefinitions t))]
         (merge-with merge
           (reduce-kv (fn [m k v] (assoc m (:name v) {:key-type  (:type v)}))
                      {} schema)
           (reduce-kv (fn [m k v] (assoc m (:name v) {:data-type (:type v)}))
                      {} defs)))}))

  LocalSecondaryIndexDescription
  (as-map [d] {:name       (keyword (.getIndexName d))

  ScanResult          (as-map [r] (am-query|scan-result r
                                    {:scanned-count (.getScannedCount r)}))

  BatchGetItemResult
  (as-map [r]
    {:items       (utils/keyword-map as-map (.getResponses r))
