X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fbraid.lisp;h=ec2a19acf006cebc832ec339fd195ccfabf6867f;hb=a260738d7a71680079d972b102b4e4db4e8dc3ae;hp=ca670369853dcbfa2cbad8da82055756df37afdf;hpb=63cef087068afc157283c0a05ae1f16b962303aa;p=sbcl.git

diff --git a/src/pcl/braid.lisp b/src/pcl/braid.lisp
index ca67036..ec2a19a 100644
--- 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 ()))