as-is witing for ctedits

[Guido.Bosch@loria.fr (Guido Bosch)]

I want to write a function that is similar to {ctedit}:write-as-is,
but with an additional file argument:

;; from ct-env.ll:
(setq #:sys-package:colon '{ctedit})

  ...

(de :write-as-is (ctedit)
    ;---------------
    ; Queries user for a file to save.
    ; NB: file must contain a suffix.
    (let ((fullpathname (#:interface:query-dialog
                            (#:interface:prompt 'write))))
        (when fullpathname
            (#:inter:withoutput
                257 fullpathname ({buffer}:write-as-is (:buffer ctedit))))))

-->

(de :write-as-is (ctedit file)
  (#:inter:withoutput
   257 file ({buffer}:write-as-is ({ctedit}:buffer ctedit)))))
				   ^^^^^^^^^^^^^^^

BUT: {ctedit}:buffer is not exported from its definition module!! 

How can I write a function that does the same as the above one would
do if {ctedit}:buffer would still exist for users???

Guido