--- a/tcl_deal.c
+++ b/tcl_deal.c
@@ -453,7 +453,7 @@ DEAL31_API int *Deal_Init(Tcl_Interp *in
 
   Tcl_CreateObjCommand(interp,"deal_init_tcl",tcl_init,NULL,NULL);
 
-  result=Tcl_VarEval(interp,"source deal.tcl",NULL);
+  result=Tcl_VarEval(interp,"source /usr/share/deal/deal.tcl",NULL);
   if (result==TCL_ERROR) {
     tcl_error(interp);
   }
--- a/input/smartstack.tcl
+++ b/input/smartstack.tcl
@@ -17,7 +17,7 @@
 # along with this program; if not, write to the Free Software
 # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 #
-source lib/handFactory.tcl
+source /usr/share/deal/lib/handFactory.tcl
 
 namespace eval smartstack {
 
--- a/input/giblib.tcl
+++ b/input/giblib.tcl
@@ -17,7 +17,7 @@
 # along with this program; if not, write to the Free Software
 # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 #
-source lib/gib.tcl
+source /usr/share/deal/lib/gib.tcl
 
 #
 # The giblib implements the ability to read files of the
--- a/lib/ddeval.tcl
+++ b/lib/ddeval.tcl
@@ -18,7 +18,7 @@
 # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 #
 
-source lib/handProc.tcl
+source /usr/share/deal/lib/handProc.tcl
 
 namespace eval ddeval {
   variable ddData
--- a/lib/binky.tcl
+++ b/lib/binky.tcl
@@ -18,7 +18,7 @@
 # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 #
 
-source lib/handProc.tcl
+source /usr/share/deal/lib/handProc.tcl
 
 namespace eval binky {
   variable binkyData
--- a/lib/parscore.tcl
+++ b/lib/parscore.tcl
@@ -18,7 +18,7 @@
 # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 #
 
-source lib/score.tcl
+source /usr/share/deal/lib/score.tcl
 
 proc rlist {A B C D} {list $D $C $B $A}
 
--- a/format/gibpar
+++ b/format/gibpar
@@ -1 +1 @@
-source format/par
+source /usr/share/deal/format/par
--- a/format/par
+++ b/format/par
@@ -17,7 +17,7 @@
 # along with this program; if not, write to the Free Software
 # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 #
-source lib/parscore.tcl
+source /usr/share/deal/lib/parscore.tcl
 
 namespace eval par {
 
--- a/format/parArticle
+++ b/format/parArticle
@@ -20,7 +20,7 @@
 # along with this program; if not, write to the Free Software
 # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 #
-source lib/parscore.tcl
+source /usr/share/deal/lib/parscore.tcl
 
 set particle(num) 0
 set particle(dealer) [list north east south west]
--- a/ex/3nt-nostack.tcl
+++ b/ex/3nt-nostack.tcl
@@ -13,7 +13,7 @@
 # This is slower than the smart-stacking version by an order of magnitude
 # when requesting 1000 deals.
 # 
-source format/none
+source /usr/share/deal/format/none
 
 south is "AK K52 98765 962"
 
--- a/ex/3nt-stack.tcl
+++ b/ex/3nt-stack.tcl
@@ -13,7 +13,7 @@
 #
 # Obviously, they shouldn't be exactly the same, but they should be similar.
 
-source format/none
+source /usr/share/deal/format/none
 
 source ex/3nt-common.tcl
 
--- a/html/ex/3nt-nostack.txt
+++ b/html/ex/3nt-nostack.txt
@@ -13,7 +13,7 @@
 # This is slower than the smart-stacking version by an order of magnitude
 # when requesting 1000 deals.
 # 
-source format/none
+source /usr/share/deal/format/none
 
 south is "AK K52 98765 962"
 
--- a/html/ex/3nt-stack.txt
+++ b/html/ex/3nt-stack.txt
@@ -13,7 +13,7 @@
 #
 # Obviously, they shouldn't be exactly the same, but they should be similar.
 
-source format/none
+source /usr/share/deal/format/none
 
 shapecond gam3NT.shape {$s<=3&&$h<=3&&(($d>=7&&$c<=4)||($c>=7&&$d<=4))}
 
--- a/lib/features.tcl
+++ b/lib/features.tcl
@@ -55,7 +55,7 @@ namespace eval deal {
 
 
     proc input {format args} {
-	uplevel #0 [list source "input/$format.tcl" ]
+	uplevel #0 [list source "/usr/share/deal/input/$format.tcl" ]
 	set command [list "${format}::set_input"]
 	foreach arg $args {
 	    lappend command $arg
--- a/ex/7.tcl
+++ b/ex/7.tcl
@@ -8,7 +8,7 @@
 # to define opening bids and later check to see if a hand
 # fits the conditions
 
-source lib/bid.tcl
+source /usr/share/deal/lib/bid.tcl
 
 defvector AKQ 4 3 2
 defvector Top4 1 1 1 1
--- a/html/ex/7.txt
+++ b/html/ex/7.txt
@@ -8,7 +8,7 @@
 # to define opening bids and later check to see if a hand
 # fits the conditions
 
-source lib/bid.tcl
+source /usr/share/deal/lib/bid.tcl
 
 defvector AKQ 4 3 2
 defvector Top4 1 1 1 1
--- a/deal.tcl
+++ b/deal.tcl
@@ -30,11 +30,11 @@ if {[string first "Windows" $tcl_platfor
 
 catch { deal_init_tcl }
 
-source lib/features.tcl
+source /usr/share/deal/lib/features.tcl
 
 # If set to non-zero, and your terminal supports UTF-8, deal's default output format will write 
 #the deal with unicode suit symbols.
 set deal::unicode 1
 
 # Edit this line to make your default format any format
-source format/default
+source /usr/share/deal/format/default
