From a9fcc83576f0352899821fc2eebe08ec3a872410 Mon Sep 17 00:00:00 2001
From: John Connors <johnc@yagc.ndo.co.uk>
Date: Sat, 22 Mar 2008 20:23:15 +0000
Subject: [PATCH] Minor fixes to elf file initialization.

---
 elf-file.lisp | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/elf-file.lisp b/elf-file.lisp
index 3f5dde3..0778b3a 100644
--- a/elf-file.lisp
+++ b/elf-file.lisp
@@ -365,8 +365,9 @@ either index or offset into the section in body."
          (set-section-names () 
            (loop 
               for section-index from 0 below (e-shnum-of (header-of elf))
-              do (setf (name-of section)
-                       (elf-section-name elf index)))))
+              do (let ((section (section-of elf section-index))) 
+                   (setf (name-of section)
+                         (elf-section-name elf section-index))))))
     
    
       ;; defmethod read-elf file
-- 
2.11.4.GIT