1 files changed, 2 insertions, 2 deletions
diff --git a/nim/commands.pas b/nim/commands.pas
index 1663b6b93..e88fc6b8c 100755
--- a/nim/commands.pas
+++ b/nim/commands.pas
@@ -309,11 +309,11 @@ end;
 
 procedure processCompile(const filename: string);
 var
-  found, trunc, ext: string;
+  found, trunc: string;
 begin
   found := findFile(filename);
   if found = '' then found := filename;
-  splitFilename(found, trunc, ext);
+  trunc := changeFileExt(found, '');
   extccomp.addExternalFileToCompile(trunc);
   extccomp.addFileToLink(completeCFilePath(trunc, false));
 end;