diff --git a/bindings/perltest.pl b/bindings/perltest.pl
index dd7693d89..edd4ad654 100755
--- a/bindings/perltest.pl
+++ b/bindings/perltest.pl
@@ -23,7 +23,7 @@ $retry = $rig->get_conf("retry");
 print "get_conf:\t\tpath = \"$rpath\", retry = $retry, ITU region = $region\n";
 
 
-$rig->set_freq(14266000, $Hamlib::RIG_VFO_A);
+$rig->set_freq($Hamlib::RIG_VFO_A, 14266000);
 
 $f = $rig->get_freq();
 print "freq:\t\t\t$f\n";
@@ -62,6 +62,9 @@ print "get_channel status:\t$rig->{error_status} = ".Hamlib::rigerror($rig->{err
 
 print "VFO:\t\t\t".Hamlib::rig_strvfo($chan->{vfo}).", $chan->{freq}\n";
 
+print "\nSending Morse, '73'\n";
+$rig->send_morse($Hamlib::RIG_VFO_A, "73");
+
 $rig->close();
 
 
diff --git a/bindings/pytest.py b/bindings/pytest.py
index 21711d696..552a926d1 100755
--- a/bindings/pytest.py
+++ b/bindings/pytest.py
@@ -30,10 +30,10 @@ def StartUp ():
     print "get_conf:\t\tpath = %s, retry = %s, ITU region = %s" \
         % (rpath, retry, region)
 
-    my_rig.set_freq (5700000000,Hamlib.RIG_VFO_B)
-    print "freq:\t\t\t",my_rig.get_freq()
-    my_rig.set_freq (145550000)
+    my_rig.set_freq (Hamlib.RIG_VFO_B, 5700000000)
     my_rig.set_vfo (Hamlib.RIG_VFO_B)
+    print "freq:\t\t\t",my_rig.get_freq()
+    my_rig.set_freq (Hamlib.RIG_VFO_A, 145550000)
     #my_rig.set_vfo ("VFOA")
 
     (mode, width) = my_rig.get_mode()
@@ -66,6 +66,10 @@ def StartUp ():
     print "get_channel status:\t",my_rig.error_status
 
     print "VFO:\t\t\t",Hamlib.rig_strvfo(chan.vfo),", ",chan.freq
+
+    print "\nSending Morse, '73'"
+    my_rig.send_morse(Hamlib.RIG_VFO_A, "73")
+
     my_rig.close ()
 
     print "\nSome static functions:"
diff --git a/bindings/tcltest.tcl b/bindings/tcltest.tcl
index bfba7c64a..c5dd223f7 100755
--- a/bindings/tcltest.tcl
+++ b/bindings/tcltest.tcl
@@ -21,7 +21,7 @@ rig_set_debug $RIG_DEBUG_NONE
 Rig my_rig $RIG_MODEL_DUMMY
 
 my_rig open
-my_rig set_freq 145550000
+my_rig set_freq $RIG_VFO_A 145550000
 
 puts "status:\t\t[my_rig cget -error_status]"
 
@@ -51,6 +51,9 @@ puts "strength:\t[my_rig get_level_i $RIG_LEVEL_STRENGTH]"
 puts "status:\t\t[my_rig cget -error_status]"
 puts "status(str):\t[rigerror [my_rig cget -error_status]]"
 
+puts "\nSending Morse, '73'"
+my_rig send_morse $RIG_VFO_A "73"
+
 my_rig close
 #my_rig cleanup