0.7.9.9:

[sbcl.git] / src / pcl / braid.lisp

diff --git a/src/pcl/braid.lisp b/src/pcl/braid.lisp
index ca67036..ec2a19a 100644 (file)
--- a/src/pcl/braid.lisp
+++ b/src/pcl/braid.lisp
@@ -243,7 +243,7 @@
                                    smc
                                    name
                                    value)))
-       (set-slot 'source *load-truename*)
+       (set-slot 'source *load-pathname*)
        (set-slot 'type 'standard)
        (set-slot 'documentation "The standard method combination.")
        (set-slot 'options ()))