diff --git a/Gen.pas b/Gen.pas
index fb0ea04..c61c846 100644
--- a/Gen.pas
+++ b/Gen.pas
@@ -6428,17 +6428,6 @@ procedure GenTree {op: icptr};
       len: integer;			{length of the file name}
 
 
-      function ToUpper (ch: char): char;
-
-      { Return the uppercase equivalent of the input character	}
-
-      begin {ToUpper}
-      if (ch >= 'a') and (ch <= 'z') then
-	 ch := chr(ord(ch)-ord('a')+ord('A'));
-      ToUpper := ch;
-      end; {ToUpper}
-
-
    begin {GenNam}
    {generate a call to install the name in the traceback facility}
    if traceBack then begin
@@ -6476,8 +6465,7 @@ procedure GenTree {op: icptr};
       if maxString-stringSize >= len+1 then begin
          stringSpace[stringSize+1] := chr(len);
          for i := 1 to len do
-            stringSpace[i+stringSize+1] :=
-               ToUpper(sourceFileGS.theString.theString[i]);
+            stringSpace[i+stringSize+1] := sourceFileGS.theString.theString[i];
          stringSize := stringSize + len + 1;
          end {if}
       else