diff --git a/src/Makefile b/src/Makefile
index 5c53edf..67e45b4 100644
--- a/src/Makefile
+++ b/src/Makefile
@@ -119,7 +119,7 @@ install:	all dirs tables
 	cp $(PROGS) $(TOP)
 	cp $(PROGS2) $(TOP)
 	cp $(PROGS3) $(TOP)
-	cp $(PROGS3) $(TOP)
+	cp $(PROGS4) $(TOP)
 	cp ../perlsrc/* $(TOP) 
 	cp fxtract $(BIN)
 	cp -r script $(BIN) 
diff --git a/src/qpgsubs.c b/src/qpgsubs.c
index 6e9c276..009d8a0 100644
--- a/src/qpgsubs.c
+++ b/src/qpgsubs.c
@@ -125,7 +125,7 @@ void setdisq(NODE *node, int dis)  ;
 void setdisqq(NODE *node, int dis)  ;
 int setxx (NODE * node, NODE ** xx);
 void reroot (char *nodename);
-void setgtime ();
+void setgtime (double *time);
 void setvnum (int *vnum, int *list, int n);
 void pedge (FILE * fff, NODE * anode, NODE * bnode, double val, double theta, int mode);
 int vertexnum (char *vertname);