--- ray/src/rt/rv2.c	1991/08/26 10:12:02	1.26
+++ ray/src/rt/rv2.c	1991/10/11 12:12:40	1.29
@@ -22,7 +22,9 @@ static char SCCSid[] = "$SunId$ LBL";
 
 #define  CTRL(c)	('c'-'@')
 
+extern char  VersionID[];
 extern char  *progname;
+extern char  *octname;
 
 
 getframe(s)				/* get a new frame */
@@ -564,7 +566,11 @@ char  *s;
 						/* write header */
 	fputs(progname, fp);
 	fprintview(&ourview, fp);
-	putc('\n', fp);
+	if (octname != NULL)
+		fprintf(fp, " %s\n", octname);
+	else
+		putc('\n', fp);
+	fprintf(fp, "SOFTWARE= %s\n", VersionID);
 	if (exposure != 1.0)
 		fputexpos(exposure, fp);
 	if (dev->pixaspect != 1.0)
@@ -574,14 +580,18 @@ char  *s;
 	fputresolu(YMAJOR|YDECR, hresolu, vresolu, fp);
 
 	scanline = (COLR *)malloc(hresolu*sizeof(COLR));
-	if (scanline == NULL)
-		error(SYSTEM, "out of memory in writepict");
+	if (scanline == NULL) {
+		error(COMMAND, "not enough memory!");
+		fclose(fp);
+		unlink(fname);
+		return;
+	}
 	for (y = vresolu-1; y >= 0; y--) {
 		getpictcolrs(y, scanline, &ptrunk, hresolu, vresolu);
 		if (fwritecolrs(scanline, hresolu, fp) < 0)
 			break;
 	}
+	free((char *)scanline);
 	if (fclose(fp) < 0)
 		error(COMMAND, "write error");
-	free((char *)scanline);
 }