--- ray/src/util/do_file.tcl	2015/05/28 10:23:06	2.21
+++ ray/src/util/do_file.tcl	2017/09/07 00:02:07	2.24
@@ -1,4 +1,4 @@
-# RCSid: $Id: do_file.tcl,v 2.21 2015/05/28 10:23:06 greg Exp $
+# RCSid: $Id: do_file.tcl,v 2.24 2017/09/07 00:02:07 greg Exp $
 #
 # Choose the Rad Input File to work on.
 #
@@ -128,7 +128,8 @@ proc putradvar {fi vn} {	# print out a rad variable
 	}
 	if {[lsearch -exact {ZONE QUALITY OCTREE PICTURE AMBFILE OPTFILE
 			EXPOSURE RESOLUTION UP INDIRECT DETAIL PENUMBRAS
-			EYESEP RAWFILE ZFILE VARIABILITY REPORT} $vn] >= 0} {
+			EYESEP RAWFILE ZFILE VARIABILITY REPORT
+			PGMAP PCMAP} $vn] >= 0} {
 		puts $fi "$vn= $radvar($vn)"
 		return
 	}