Add files via upload

filelib.tcl

@@ -143,6 +143,7 @@ namespace eval filelib {
 		
 		  set fh [open $fname {WRONLY CREAT}]
 		  puts $fh $stxt
+		  chan truncate $fh
 		  close $fh		
 		}
 	}

radxide.tcl

@@ -28,7 +28,7 @@
 #
 ###########################################################
 
-set version "1.3.0" 
+set version "1.3.1" 
 set os "$::tcl_platform(os) $::tcl_platform(osVersion)"
 
 package provide radxide $version