Applescript for 'Save As' to a new filename

[Robin Trew]

I have sketched a first Applescript draft of a Save routine which  
automatically provides or increments a numeric ending to the file  
name, every time it is used to save a file.

	e.g.
	
		RoughNotes0001.oo3

	automatically becomes, at the next save

		RoughNotes0002.oo3


I have not really discovered, however, a good way of implementing a  
simple Save As (to new filename) in Applescript.

The current draft ends, quite clumsily, with:


tell application "OmniOutliner Professional"
	
	save docFront in strIncrementedPath
	
	close docFront
	open strIncrementedPath
	
	activate
	
end tell


Do I really have to explicitly close the current document, and open  
the newly created file ? This creates a degree of screen flicker.

Does anyone know a way of implementing a simpler Save As ?

Thanks !

Robin Trew