diff --git a/configure.tcl b/configure.tcl
new file mode 100755
index 0000000..da31b5c
--- /dev/null
+++ b/configure.tcl
@@ -0,0 +1,20 @@
+#!/usr/local/bin/tclsh8.4
+# Sets up configuration stuff
+# $Amigan: phoned/configure.tcl,v 1.1 2005/06/27 20:47:37 dcp1990 Exp $
+if {$argc < 1} {
+	puts stderr "Usage: configure.tcl prefix"
+	exit -1
+}
+set prefix [lindex $argv 0]
+puts [list Prefix is [set prefix]...]
+puts Configuring.
+set xf [open "xfone/paths.tcl" w]
+puts $xf {# Generated by configure.tcl}
+puts $xf [list set prefix $prefix]
+puts $xf {set lib [set prefix]/lib/phoned
+set udom_lib [set lib]/udom.so
+}
+close $xf
+#for lack of touch...
+close [open .config w]
+