1 files changed, 4 insertions, 5 deletions
diff --git a/model.lisp b/model.lisp
index dcaf780..c3032fa 100644
--- a/model.lisp
+++ b/model.lisp
@@ -38,11 +38,10 @@
   ((source file title artist album thumb-url duration codec :with)
    (playlists :with :std (list) :doc "A list of playlists in which this track appears")))
 
-(defun track-file (track)
-  (with-slots (file) track
-    (merge-pathnames
-     (path:basename file)
-     (merge-pathnames "media/" (static-directory *config*)))))
+(defmethod track-file :around ((track track))
+  (merge-pathnames
+   (path:basename (call-next-method))
+   (merge-pathnames "media/" (static-directory *config*))))
 
 ;;; MODEL OPERATIONS