diff --git a/src/cmp/cmpdefs.lsp b/src/cmp/cmpdefs.lsp
index 5dd65d727..31abdcaac 100644
--- a/src/cmp/cmpdefs.lsp
+++ b/src/cmp/cmpdefs.lsp
@@ -191,7 +191,7 @@
   (debug 0)		;;; Debug quality
   (file (car ext:*source-location*))
 			;;; Source file or NIL
-  (file-position *compile-file-position*)
+  (file-position (or (cdr ext:*source-location*) *compile-file-position*))
 			;;; Top-level form number in source file
   )