@@ -166,5 +166,10 @@
 	return 0.1
 }
 $handle cwrap callToTcl1 {int x} float
 $handle go
 puts [callToTcl1 3]
+
+set handle [tcc4tcl::new]
+$handle proc callToTclBinary {char* blob int blob_Length} ok {
+	puts "Blob: $blob"
+}