Index: /trunk/source/level-1/l1-reader.lisp
===================================================================
--- /trunk/source/level-1/l1-reader.lisp	(revision 13963)
+++ /trunk/source/level-1/l1-reader.lisp	(revision 13964)
@@ -3084,4 +3084,11 @@
       (cons start-pos end-pos))))
 
+(defun decode-file-range (range)
+  (when range
+    (if (consp range)
+      (values (car range) (cdr range))
+      (let ((start-pos (ash range -14)))
+        (values start-pos (+ start-pos (logand range #x3FFF)))))))
+
 (defun source-note-text (source-note &optional start end)
   (when source-note