From acac908d4c23334b449dde5238e69be85dcf54bd Mon Sep 17 00:00:00 2001
From: Graeme Geldenhuys <graemeg@gmail.com>
Date: Sat, 24 Oct 2009 01:15:12 +0200
Subject: Fix "index out of bounds" error when clicking on debug inf header
 menu option.

Signed-off-by: Graeme Geldenhuys <graemeg@gmail.com>
---
 src/frm_main.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/frm_main.pas b/src/frm_main.pas
index bb37f1b9..256c5ece 100644
--- a/src/frm_main.pas
+++ b/src/frm_main.pas
@@ -239,7 +239,7 @@ var
 begin
   RichView.Clear;
   sl := TStringList.Create;
-  f := THelpFile(Files[0]);
+  f := THelpFile(CurrentOpenFiles[0]);
   with sl do
   begin
     Add('<b><u>Filename:</u></b> <red>' + f.Filename + '<black>');
-- 
cgit v1.2.3-70-g09d2