Index: trunk/Ohana/src/opihi/cmd.basic/fprintf.c
===================================================================
--- trunk/Ohana/src/opihi/cmd.basic/fprintf.c	(revision 4746)
+++ trunk/Ohana/src/opihi/cmd.basic/fprintf.c	(revision 7917)
@@ -9,5 +9,5 @@
 
   if (argc < 2) {
-    fprintf (stderr, "USAGE: fprintf format value value ...\n");
+    gprint (GP_ERR, "USAGE: fprintf format value value ...\n");
     return (FALSE);
   }
@@ -24,9 +24,9 @@
     p2 = strchr (p1, '%');
     if (p2 == (char *) NULL) {
-      fprintf (stderr, "mismatch between format and values\n");
+      gprint (GP_ERR, "mismatch between format and values\n");
       return (FALSE);
     }
     if (strlen(q) + p2 - p1 > NCHAR) {
-      fprintf (stderr, "line too long");
+      gprint (GP_ERR, "line too long");
       return (FALSE);
     }
@@ -51,9 +51,9 @@
 	break;
       default:
-	fprintf (stderr, "syntax error in format (only e,f,s,d,c,x allowed)\n");
+	gprint (GP_ERR, "syntax error in format (only e,f,s,d,c,x allowed)\n");
 	return (FALSE);
     }
     if (strlen(q) + strlen(tmp) > NCHAR) {
-      fprintf (stderr, "line too long");
+      gprint (GP_ERR, "line too long");
       return (FALSE);
     }
@@ -64,5 +64,5 @@
   p2 = strchr (p1, '%');
   if (p2 != (char *) NULL) {
-    fprintf (stderr, "mismatch between format and values\n");
+    gprint (GP_ERR, "mismatch between format and values\n");
     return (FALSE);
   }
@@ -70,9 +70,9 @@
   p2 = p1 + strlen (p1);
   if (strlen(q) + p2 - p1 > NCHAR) {
-    fprintf (stderr, "line too long");
+    gprint (GP_ERR, "line too long");
     return (FALSE);
   }
   memcpy (q, p1, p2-p1);
-  fprintf (GetOutfile(), "%s\n", line);
+  gprint (GP_LOG, "%s\n", line);
 
   return (TRUE);