diff --git a/sim/mcore/ChangeLog b/sim/mcore/ChangeLog
index 0ded4fb57f..d2c5b586cf 100644
--- a/sim/mcore/ChangeLog
+++ b/sim/mcore/ChangeLog
@@ -1,3 +1,8 @@
+2000-02-14  Nick Clifton  <nickc@cygnus.com>
+
+	* interp.c (handle_trap1): Fix handling of fclose system call.
+	Patch submitted by <drew.sarkisian@motorola.com>.
+
 2000-02-10  Nick Clifton  <nickc@cygnus.com>
 
 	* interp.c (target_big_endian): New variable.
diff --git a/sim/mcore/interp.c b/sim/mcore/interp.c
index 711326b6a4..c1a39e7b83 100644
--- a/sim/mcore/interp.c
+++ b/sim/mcore/interp.c
@@ -545,7 +545,7 @@ handle_trap1 ()
       break;
       
     case 6:
-      a[0] = (unsigned long) (cpu.gr[4]);
+      a[0] = (unsigned long) (cpu.gr[PARM1]);
       /* Watch out for debugger's files. */
       if (is_opened (a[0]))
 	{