diff --git a/xfone/phoned.tcl b/xfone/phoned.tcl
index 3135f4f..1f4c15b 100644
--- a/xfone/phoned.tcl
+++ b/xfone/phoned.tcl
@@ -27,7 +27,7 @@
 # OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 # SUCH DAMAGE.
 #
-# $Amigan: phoned/xfone/phoned.tcl,v 1.6 2005/06/27 20:47:09 dcp1990 Exp $
+# $Amigan: phoned/xfone/phoned.tcl,v 1.7 2005/06/27 21:08:04 dcp1990 Exp $
 set loggedin false
 set callscb addtocallslist
 proc openSock {sfile} {
@@ -56,6 +56,7 @@ proc parseres {res} {
 			}
 			700 {
 				$callscb $data
+			}
 			default {
 				tk_messageBox -message [list Result was $res] -type ok -title "Result"
 			}