diff options
Diffstat (limited to 'tclcompat.tcl')
-rw-r--r-- | tclcompat.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tclcompat.tcl b/tclcompat.tcl index 4589f56..0f9bec9 100644 --- a/tclcompat.tcl +++ b/tclcompat.tcl @@ -115,7 +115,7 @@ proc {file copy} {{force {}} source target} { error "error copying \"$source\" to \"$target\": file already exists" } set out [open $target w] - bio copy $in $out + $in copyto $out $out close } on error {msg opts} { incr opts(-level) |