Output hash-table from a function

[Heime <heimeborgia@protonmail.com>]

I want to have the function output a hash-table.  This is how I do it.

(defun torium-anctr (fpln)

  (if (hash-table-p fpln)
      (let ( (anctr (make-hash-table :test 'equal)) )
        (maphash (lambda (waypt dirpath)
                   (puthash waypt (not (file-directory-p dirpath)) anctr))
                 fpln)) ))

But when I run the next function I get "[Anctr] alist" instead of "[Anctr] hash-table".
It seems that the output torium-anctr is not a hash-table as I had hoped.

(defun torium-chart (fpln anctr &optional bfrn)

  (let* ( (bfname (or bfrn "torium F-Pln"))
          (dbuffer (get-buffer-create bfname)) )

    (with-current-buffer dbuffer
      (erase-buffer)

      (insert (format "[Fpln]  %s\n"
        (if (hash-table-p fpln) "hash-table" "alist")))
      (insert (format "[Anctr] %s\n"
        (if (hash-table-p anctr) "hash-table" "alist"))) )))