--- capa/capa51/getbinaries	1999/09/28 21:25:35	1.1.1.1
+++ capa/capa51/getbinaries	2000/07/12 15:37:46	1.3
@@ -1,4 +1,5 @@
 #!/usr/local/bin/tclsh8.0
+#!/usr/bin/tclsh
 
 proc copy {  src dest } {
 	if {[file exists $dest]} {
@@ -6,6 +7,7 @@ proc copy {  src dest } {
 		file copy -force $src $dest
 	} else {
 		puts "Copying $src to $dest"
+                file mkdir [file dirname $dest]
 		file copy $src $dest
 	}
 }