--- asdf.lisp~	2007-04-07 20:41:19.000000000 +0200
+++ asdf.lisp	2007-04-07 20:45:45.000000000 +0200
@@ -1235,9 +1235,8 @@
 	nil))))
 
 (defun parse-file-location-info (s)
-  (warn "parsing file location info from .lnk file.  This code is untested, ~
-         please send a bug report if it fails.")
-  (let ((total-length (read-little-endian s))
+  (let ((start (file-position s))
+	(total-length (read-little-endian s))
 	(end-of-header (read-little-endian s))
 	(fli-flags (read-little-endian s))
 	(local-volume-offset (read-little-endian s))
@@ -1249,15 +1248,15 @@
     (unless (zerop fli-flags)
       (cond
 	((logbitp 0 fli-flags)
-	  (file-position s (+ end local-offset)))
+	  (file-position s (+ start local-offset)))
 	((logbitp 1 fli-flags)
-	  (file-position s (+ end
+	  (file-position s (+ start
 			      network-volume-offset
 			      #x14))))
       (concatenate 'string
 	(read-null-terminated-string s)
 	(progn
-	  (file-position s (+ end remaining-offset))
+	  (file-position s (+ start remaining-offset))
 	  (read-null-terminated-string s))))))