diff --git a/modules/src/flt_arith/.distr b/modules/src/flt_arith/.distr
index 1b45ce6b6..2cf3cc0a7 100644
--- a/modules/src/flt_arith/.distr
+++ b/modules/src/flt_arith/.distr
@@ -13,7 +13,7 @@ flt_mul.c
 flt_nrm.c
 flt_str2fl.c
 flt_umin.c
-misc.h
+flt_misc.h
 ucmp.c
 split.c
 flt_arith.3
diff --git a/modules/src/flt_arith/Makefile b/modules/src/flt_arith/Makefile
index 65cf43298..5457b1c54 100644
--- a/modules/src/flt_arith/Makefile
+++ b/modules/src/flt_arith/Makefile
@@ -58,18 +58,18 @@ lintlib:
 		lint $(INCLUDES) -Cflt $(SRC)
 		mv llib-lflt.ln $(MODDIR)/lib
 
-b64_add.$(SUF):	misc.h flt_arith.h
-flt_ar2flt.$(SUF):	misc.h flt_arith.h
-flt_div.$(SUF):	misc.h flt_arith.h
-flt_nrm.$(SUF):	misc.h flt_arith.h
-b64_sft.$(SUF):	misc.h flt_arith.h
-flt_chk.$(SUF):	misc.h flt_arith.h
-flt_flt2ar.$(SUF):	misc.h flt_arith.h
-flt_str2fl.$(SUF):	misc.h flt_arith.h
-flt_add.$(SUF):	misc.h flt_arith.h
-flt_cmp.$(SUF):	misc.h flt_arith.h
-flt_mul.$(SUF):	misc.h flt_arith.h
-flt_modf.$(SUF):	misc.h flt_arith.h
-flt_umin.$(SUF):	misc.h
-ucmp.$(SUF):	misc.h flt_arith.h
-split.$(SUF):	misc.h flt_arith.h
+b64_add.$(SUF):	flt_misc.h flt_arith.h
+flt_ar2flt.$(SUF):	flt_misc.h flt_arith.h
+flt_div.$(SUF):	flt_misc.h flt_arith.h
+flt_nrm.$(SUF):	flt_misc.h flt_arith.h
+b64_sft.$(SUF):	flt_misc.h flt_arith.h
+flt_chk.$(SUF):	flt_misc.h flt_arith.h
+flt_flt2ar.$(SUF):	flt_misc.h flt_arith.h
+flt_str2fl.$(SUF):	flt_misc.h flt_arith.h
+flt_add.$(SUF):	flt_misc.h flt_arith.h
+flt_cmp.$(SUF):	flt_misc.h flt_arith.h
+flt_mul.$(SUF):	flt_misc.h flt_arith.h
+flt_modf.$(SUF):	flt_misc.h flt_arith.h
+flt_umin.$(SUF):	flt_misc.h
+ucmp.$(SUF):	flt_misc.h flt_arith.h
+split.$(SUF):	flt_misc.h flt_arith.h
diff --git a/modules/src/flt_arith/b64_add.c b/modules/src/flt_arith/b64_add.c
index eac05c780..144cd2a0f 100644
--- a/modules/src/flt_arith/b64_add.c
+++ b/modules/src/flt_arith/b64_add.c
@@ -5,7 +5,7 @@
 
 /* $Header$ */
 
-# include "misc.h"
+# include "flt_misc.h"
 
 int
 flt_b64_add(e1,e2)
diff --git a/modules/src/flt_arith/b64_sft.c b/modules/src/flt_arith/b64_sft.c
index dcfee1f3d..80f1c916d 100644
--- a/modules/src/flt_arith/b64_sft.c
+++ b/modules/src/flt_arith/b64_sft.c
@@ -5,7 +5,7 @@
 
 /* $Header$ */
 
-#include "misc.h"
+#include "flt_misc.h"
 
 flt_b64_sft(e,n)
 	register struct flt_mantissa *e;
diff --git a/modules/src/flt_arith/flt_add.c b/modules/src/flt_arith/flt_add.c
index 196d34c77..7b1883484 100644
--- a/modules/src/flt_arith/flt_add.c
+++ b/modules/src/flt_arith/flt_add.c
@@ -5,7 +5,7 @@
 
 /* $Header$ */
 
-#include "misc.h"
+#include "flt_misc.h"
 
 flt_add(e1,e2,e3)
 	register flt_arith *e1,*e2,*e3;
diff --git a/modules/src/flt_arith/flt_ar2flt.c b/modules/src/flt_arith/flt_ar2flt.c
index af8e26c18..376181012 100644
--- a/modules/src/flt_arith/flt_ar2flt.c
+++ b/modules/src/flt_arith/flt_ar2flt.c
@@ -5,7 +5,7 @@
 
 /* $Header$ */
 
-#include "misc.h"
+#include "flt_misc.h"
 #include <em_arith.h>
 
 flt_arith2flt(n, e, uns)
diff --git a/modules/src/flt_arith/flt_chk.c b/modules/src/flt_arith/flt_chk.c
index 983733441..112ccb9aa 100644
--- a/modules/src/flt_arith/flt_chk.c
+++ b/modules/src/flt_arith/flt_chk.c
@@ -5,7 +5,7 @@
 
 /* $Header$ */
 
-#include "misc.h"
+#include "flt_misc.h"
 
 int	flt_status = 0;
 
diff --git a/modules/src/flt_arith/flt_cmp.c b/modules/src/flt_arith/flt_cmp.c
index e9f8eb152..e814aeaf0 100644
--- a/modules/src/flt_arith/flt_cmp.c
+++ b/modules/src/flt_arith/flt_cmp.c
@@ -5,7 +5,7 @@
 
 /* $Header$ */
 
-#include	"misc.h"
+#include	"flt_misc.h"
 
 int
 flt_cmp(e1, e2)
diff --git a/modules/src/flt_arith/flt_div.c b/modules/src/flt_arith/flt_div.c
index 52e8435ed..5413aa1fb 100644
--- a/modules/src/flt_arith/flt_div.c
+++ b/modules/src/flt_arith/flt_div.c
@@ -5,7 +5,7 @@
 
 /* $Header$ */
 
-#include "misc.h"
+#include "flt_misc.h"
 
 flt_div(e1,e2,e3)
 	register flt_arith *e1,*e2,*e3;
diff --git a/modules/src/flt_arith/flt_flt2ar.c b/modules/src/flt_arith/flt_flt2ar.c
index b6ecf39ee..b36120689 100644
--- a/modules/src/flt_arith/flt_flt2ar.c
+++ b/modules/src/flt_arith/flt_flt2ar.c
@@ -5,7 +5,7 @@
 
 /* $Header$ */
 
-#include "misc.h"
+#include "flt_misc.h"
 #include <em_arith.h>
 
 arith
diff --git a/modules/src/flt_arith/flt_misc.h b/modules/src/flt_arith/flt_misc.h
new file mode 100644
index 000000000..0720cd89e
--- /dev/null
+++ b/modules/src/flt_arith/flt_misc.h
@@ -0,0 +1,22 @@
+/*
+ * (c) copyright 1989 by the Vrije Universiteit, Amsterdam, The Netherlands.
+ * See the copyright notice in the ACK home directory, in the file "Copyright".
+ */
+/* $Header$ */
+
+#include <flt_arith.h>
+
+/* some short-hands ... */
+#define m1 flt_mantissa.flt_h_32
+#define m2 flt_mantissa.flt_l_32
+
+/* some constants */
+#define EXT_MAX		16384		/* max exponent */
+#define EXT_MIN		(-16384)	/* min exponent */
+
+/* hiding of names: */
+#define ucmp		_flt_ucmp
+#define flt_nrm		_flt_nrm
+#define flt_chk		_flt_chk
+#define flt_b64_add	_flt_64add
+#define flt_split	_flt_split
diff --git a/modules/src/flt_arith/flt_modf.c b/modules/src/flt_arith/flt_modf.c
index f5b0651ca..32c97ee73 100644
--- a/modules/src/flt_arith/flt_modf.c
+++ b/modules/src/flt_arith/flt_modf.c
@@ -5,7 +5,7 @@
 
 /* $Header$ */
 
-#include "misc.h"
+#include "flt_misc.h"
 
 flt_modf(e, ipart, fpart)
 	register flt_arith *e, *ipart, *fpart;
diff --git a/modules/src/flt_arith/flt_mul.c b/modules/src/flt_arith/flt_mul.c
index dd98d0907..695434631 100644
--- a/modules/src/flt_arith/flt_mul.c
+++ b/modules/src/flt_arith/flt_mul.c
@@ -5,7 +5,7 @@
 
 /* $Header$ */
 
-#include "misc.h"
+#include "flt_misc.h"
 
 flt_mul(e1,e2,e3)
 	register flt_arith *e1,*e2,*e3;
diff --git a/modules/src/flt_arith/flt_nrm.c b/modules/src/flt_arith/flt_nrm.c
index 107071a6f..3d634f065 100644
--- a/modules/src/flt_arith/flt_nrm.c
+++ b/modules/src/flt_arith/flt_nrm.c
@@ -5,7 +5,7 @@
 
 /* $Header$ */
 
-#include "misc.h"
+#include "flt_misc.h"
 
 flt_nrm(e)
 	register flt_arith *e;
diff --git a/modules/src/flt_arith/flt_str2fl.c b/modules/src/flt_arith/flt_str2fl.c
index 5ef842246..0c86aead2 100644
--- a/modules/src/flt_arith/flt_str2fl.c
+++ b/modules/src/flt_arith/flt_str2fl.c
@@ -6,7 +6,7 @@
 /* $Header$ */
 
 #include <ctype.h>
-#include "misc.h"
+#include "flt_misc.h"
 
 /* The following tables can be computed with the following bc(1)
    program:
diff --git a/modules/src/flt_arith/flt_umin.c b/modules/src/flt_arith/flt_umin.c
index f82c971d3..1d16bbfe6 100644
--- a/modules/src/flt_arith/flt_umin.c
+++ b/modules/src/flt_arith/flt_umin.c
@@ -5,7 +5,7 @@
 
 /* $Header$ */
 
-#include "misc.h"
+#include "flt_misc.h"
 
 flt_umin(e)
 	flt_arith *e;
diff --git a/modules/src/flt_arith/split.c b/modules/src/flt_arith/split.c
index 653c3df48..6c619edaa 100644
--- a/modules/src/flt_arith/split.c
+++ b/modules/src/flt_arith/split.c
@@ -1,6 +1,6 @@
 /* $Header$ */
 
-#include "misc.h"
+#include "flt_misc.h"
 
 flt_split(e, p)
 	register flt_arith *e;
diff --git a/modules/src/flt_arith/ucmp.c b/modules/src/flt_arith/ucmp.c
index 420183eb3..84c68362d 100644
--- a/modules/src/flt_arith/ucmp.c
+++ b/modules/src/flt_arith/ucmp.c
@@ -5,7 +5,7 @@
 
 /* $Header$ */
 
-#include "misc.h"
+#include "flt_misc.h"
 
 int
 ucmp(l1,l2)