sub RTF::Writer::close {
   return unless $_[0][2];  # Already closed?!
   #DEBUG > 1 and print "Closing $_[0]\n";
   $_[0]->print(\$_[0][1]) if length $_[0][1];
   $_[0][2]->close();   # Call close directly
   undef $_[0][2];   # ...presumably clausing any FH to close and destroy.
   $_[0][1] = '';
   return;

	}