typo in tarvfs

diff --git a/library/tarvfs.tcl b/library/tarvfs.tcl
index d28e10d11846047c18337c73ec7680b87fcb51b2..6ac3b27d1f6b25ce7d78981292bfc7f43063c52b 100644 (file)
--- a/library/tarvfs.tcl
+++ b/library/tarvfs.tcl
@@ -185,7 +185,8 @@ proc vfs::tar::utime {fd path actime mtime} {
 
 namespace eval tar {
     
-    set HEADER_SIZE 500 set BLOCK_SIZE 512
+    set HEADER_SIZE 500
+    set BLOCK_SIZE 512
     
     # fields of header with start/end-index in "comments": length of
     # field in bytes (just for documentation) prefix is the