Minor change to the "save <file>.tcl" method to only paint from

TECHDEPBASE, as the layers below that cannot be directly painted;
this avoids putting things like "paint checkpaint" into the
output, which are harmless but useless.

database/DBio.c

@@ -3441,7 +3441,7 @@ DBCellFindScale(cellDef)
     /* Find greatest common factor of all geometry.  If this becomes 1, stop.	*/
 
     ggcf = DBLambda[1];
-    for (type = TT_PAINTBASE; type < DBNumUserLayers; type++)
+    for (type = TT_TECHDEPBASE; type < DBNumUserLayers; type++)
     {
 	if ((pNum = DBPlane(type)) < 0)
 	    continue;