diff --git a/ghc/lib/cbits/freeFile.lc b/ghc/lib/cbits/freeFile.lc
index 5c780769460d7cef873d637c459e603d0540d40e..1ac3d526614fac42094fb562e22da82f29d309d3 100644
--- a/ghc/lib/cbits/freeFile.lc
+++ b/ghc/lib/cbits/freeFile.lc
@@ -8,12 +8,12 @@
 #include "rtsdefs.h"
 #include "stgio.h"
 
-/* sigh, the standard channels are handled differently,
-   we don't want them freed via the ForeignObj finaliser,
-   as we probably want to use these channels before we
-   *really* shutdown (dumping stats etc.)
+/* sigh, the FILEs attached to the standard descriptors are 
+   handled differently. We don't want them freed via the
+   ForeignObj finaliser, as we probably want to use these
+   before we *really* shut down (dumping stats etc.)
 */
-void freeStdChannel(fp)
+void freeStdFile(fp)
 StgForeignObj fp;
 { return; }
 
diff --git a/ghc/lib/cbits/stgio.h b/ghc/lib/cbits/stgio.h
index 7e436759bb6a8280d8e5858833d64c2f598a3e17..2c5eab247d48d0e66c3bba550da069a61449fa80 100644
--- a/ghc/lib/cbits/stgio.h
+++ b/ghc/lib/cbits/stgio.h
@@ -51,7 +51,7 @@ StgInt	fileSize    PROTO((StgForeignObj, StgByteArray));
 StgInt	flushFile   PROTO((StgForeignObj));
 
 /* freeFile.lc */
-void freeStdChannel PROTO((StgForeignObj));
+void freeStdFile PROTO((StgForeignObj));
 void freeFile PROTO((StgForeignObj));
 
 /* getBufferMode.lc */