diff --git a/Makefile b/Makefile
index a83774e..6e58edf 100644
--- a/Makefile
+++ b/Makefile
@@ -1,8 +1,8 @@
 # main makefile...
-# $Amigan: phoned/Makefile,v 1.5 2005/06/19 05:51:07 dcp1990 Exp $
+# $Amigan: phoned/Makefile,v 1.6 2005/06/26 15:55:58 dcp1990 Exp $
 # Oh My Fucking God, this is such a big, unportable mess. Oh well.
 # BSD Make > *
-APPS=phonectl phoned lib scripts
+APPS=phonectl phoned lib scripts xfone
 APPSUF=${APPS:S/$/_app/}
 APPSCLEAN=${APPS:S/$/_cl/}
 all: ${APPSUF}
diff --git a/lib/sockstuff.c b/lib/sockstuff.c
index c72f82a..730103d 100644
--- a/lib/sockstuff.c
+++ b/lib/sockstuff.c
@@ -27,7 +27,7 @@
  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  * SUCH DAMAGE.
  */
-/* $Amigan: phoned/lib/sockstuff.c,v 1.2 2005/06/26 15:51:22 dcp1990 Exp $ */
+/* $Amigan: phoned/lib/sockstuff.c,v 1.3 2005/06/26 15:55:58 dcp1990 Exp $ */
 #include <stdio.h>
 #include <string.h>
 #include <unistd.h>
@@ -162,7 +162,7 @@ Tcl_Channel Udom_CreateChannel(sockfile, mask)
 	cdt->channel = Tcl_CreateChannel(&Udom_ChanType, chname, cdt, mask);
 	return cdt->channel;
 }
-int Udom_MakeSock (cdata, interp, argc, argv)
+int Udom_Cmd (cdata, interp, argc, argv)
 	ClientData cdata;
 	Tcl_Interp *interp;
 	int argc;
@@ -199,4 +199,10 @@ int Udom_MakeSock (cdata, interp, argc, argv)
 	Tcl_AppendResult(interp, Tcl_GetChannelName(res), (char*)NULL);
 	return TCL_OK;
 }
-	
+
+int Udom_Init(interp)
+	Tcl_Interp *interp;
+{
+	Tcl_CreateObjCommand(interp, "udom", Udom_Cmd, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL);
+	return TCL_OK;
+}
diff --git a/lib/tcl/sockstuff.c b/lib/tcl/sockstuff.c
index 85e33a1..7dd7f9f 100644
--- a/lib/tcl/sockstuff.c
+++ b/lib/tcl/sockstuff.c
@@ -27,7 +27,7 @@
  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  * SUCH DAMAGE.
  */
-/* $Amigan: phoned/lib/tcl/sockstuff.c,v 1.2 2005/06/26 15:51:22 dcp1990 Exp $ */
+/* $Amigan: phoned/lib/tcl/sockstuff.c,v 1.3 2005/06/26 15:55:58 dcp1990 Exp $ */
 #include <stdio.h>
 #include <string.h>
 #include <unistd.h>
@@ -162,7 +162,7 @@ Tcl_Channel Udom_CreateChannel(sockfile, mask)
 	cdt->channel = Tcl_CreateChannel(&Udom_ChanType, chname, cdt, mask);
 	return cdt->channel;
 }
-int Udom_MakeSock (cdata, interp, argc, argv)
+int Udom_Cmd (cdata, interp, argc, argv)
 	ClientData cdata;
 	Tcl_Interp *interp;
 	int argc;
@@ -199,4 +199,10 @@ int Udom_MakeSock (cdata, interp, argc, argv)
 	Tcl_AppendResult(interp, Tcl_GetChannelName(res), (char*)NULL);
 	return TCL_OK;
 }
-	
+
+int Udom_Init(interp)
+	Tcl_Interp *interp;
+{
+	Tcl_CreateObjCommand(interp, "udom", Udom_Cmd, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL);
+	return TCL_OK;
+}
diff --git a/xfone/phoned.tcl b/xfone/phoned.tcl
index caf5fd4..42c9c9c 100644
--- a/xfone/phoned.tcl
+++ b/xfone/phoned.tcl
@@ -27,4 +27,5 @@
 # OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 # SUCH DAMAGE.
 #
-# $Amigan: phoned/xfone/phoned.tcl,v 1.1 2005/06/26 04:47:20 dcp1990 Exp $
+# $Amigan: phoned/xfone/phoned.tcl,v 1.2 2005/06/26 15:55:58 dcp1990 Exp $
+load ./udom.so
diff --git a/xfone/sockstuff.c b/xfone/sockstuff.c
index 538a79f..ca60e0c 100644
--- a/xfone/sockstuff.c
+++ b/xfone/sockstuff.c
@@ -27,7 +27,7 @@
  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  * SUCH DAMAGE.
  */
-/* $Amigan: phoned/xfone/sockstuff.c,v 1.2 2005/06/26 15:51:22 dcp1990 Exp $ */
+/* $Amigan: phoned/xfone/sockstuff.c,v 1.3 2005/06/26 15:55:58 dcp1990 Exp $ */
 #include <stdio.h>
 #include <string.h>
 #include <unistd.h>
@@ -162,7 +162,7 @@ Tcl_Channel Udom_CreateChannel(sockfile, mask)
 	cdt->channel = Tcl_CreateChannel(&Udom_ChanType, chname, cdt, mask);
 	return cdt->channel;
 }
-int Udom_MakeSock (cdata, interp, argc, argv)
+int Udom_Cmd (cdata, interp, argc, argv)
 	ClientData cdata;
 	Tcl_Interp *interp;
 	int argc;
@@ -199,4 +199,10 @@ int Udom_MakeSock (cdata, interp, argc, argv)
 	Tcl_AppendResult(interp, Tcl_GetChannelName(res), (char*)NULL);
 	return TCL_OK;
 }
-	
+
+int Udom_Init(interp)
+	Tcl_Interp *interp;
+{
+	Tcl_CreateObjCommand(interp, "udom", Udom_Cmd, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL);
+	return TCL_OK;
+}