Index: trunk/psModules/src/objects/pmSourceIO_OBJ.c
===================================================================
--- trunk/psModules/src/objects/pmSourceIO_OBJ.c	(revision 18840)
+++ trunk/psModules/src/objects/pmSourceIO_OBJ.c	(revision 18841)
@@ -3,6 +3,6 @@
  *  @author EAM, IfA
  *
- *  @version $Revision: 1.17 $ $Name: not supported by cvs2svn $
- *  @date $Date: 2008-08-01 00:46:04 $
+ *  @version $Revision: 1.18 $ $Name: not supported by cvs2svn $
+ *  @date $Date: 2008-08-01 01:05:39 $
  *
  *  Copyright 2004 Maui High Performance Computing Center, University of Hawaii
@@ -97,5 +97,5 @@
         if (fwrite (line->line, 1, line->Nline, f) < line->Nline) {
             psError(PS_ERR_IO, true, "Unable to write OBJ sources file (%s)", filename);
-            close(f);
+            fclose(f);
             psFree(line);
             return false;