; 16 jly 85 esj converted
;;;;;;;;;;;;;            SETCOOK         ;;;
      E'F
      E'O SETCOOK.(CH,FNAME)

;     a noop for cgos.  maybe replace with a call to transpare/opaque
      F'N
      E'N