Index: lib/xvfs/xvfs.tcl ================================================================== --- lib/xvfs/xvfs.tcl +++ lib/xvfs/xvfs.tcl @@ -4,11 +4,15 @@ set ::xvfs::_xvfsDir [file dirname [info script]] # Functions proc ::xvfs::_emitLine {line} { - ::minirivet::_emitOutput "${line}\n" + if {[info command ::minirivet::_emitOutput] ne ""} { + ::minirivet::_emitOutput "${line}\n" + } else { + puts $line + } } proc ::xvfs::printHelp {channel {errors ""}} { if {[llength $errors] != 0} { foreach error $errors {