 (defn- cached-callback-data
   [path cache-prefix source source-modified raw-load]
   (let [cache-prefix (if (= :calculate-cache-prefix cache-prefix)
-                       (cache-prefix-for-path (second (extract-cache-metadata-mem source)))
+                       (cache-prefix-for-path (second (extract-cache-metadata-mem source)) false)
                        cache-prefix)
         [js-source js-modified] (or (raw-load (add-suffix path ".js"))
                                     (js/PLANCK_READ_FILE (str cache-prefix ".js")))

    (when (and (= "File" (:name x)) (:source x))
      (let [source (:source x)
            [file-namespace relpath] (extract-cache-metadata-mem source-text)]
        (js/PLANCK_CACHE (cache-prefix-for-path relpath) (str (compiled-by-string) "\n" source)
          (when file-namespace
            (cljs->transit-json (get-namespace file-namespace))))))
    (cb {:value nil})))

      (when-not (load-and-callback!
                  (str path (first extensions))
                  (extension->lang (first extensions))
                  (cache-prefix-for-path path macros)
                  cb)
        (recur (next extensions)))
      (cb nil))))
