From 6bc461dc612689dde3893efead555f660871c810 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sun, 25 Sep 2005 09:14:22 +0000
Subject: [PATCH] * realmodulename must be used of course

git-svn-id: trunk@1181 -
---
 compiler/scandir.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/scandir.pas b/compiler/scandir.pas
index e81ec93ab1..21379b88ff 100644
--- a/compiler/scandir.pas
+++ b/compiler/scandir.pas
@@ -845,7 +845,7 @@ implementation
             begin
               delete(S,1,1);
               if m_delphi in aktmodeswitches then
-                insert(current_module.modulename^,S,1)
+                insert(current_module.realmodulename^,S,1)
               else
                 insert(lower(current_module.modulename^),S,1);
             end;