--- a/src/misc1/fiolib/Makefile
+++ b/src/misc1/fiolib/Makefile
@@ -18,6 +18,11 @@
 object: $(LIBOBJS)
 
 library: archive ranlib
+fcpack.f:fcpack.g
+	@echo "Substituting system constants (fcpack.g -> fcpack.f)"
+	@sed -e "s!@ICLCT!$(ISLCT)!" \
+	  fcpack.g > fcpack.f
+
 
 archive:
 	@$(AR) $(ARFLAGS) $(LDCLLIBFILE) $(LIBOBJS)
@@ -26,4 +31,4 @@
 	$(RANLIB) $(LDCLLIBFILE)
 
 clean:
-	$(RM) *.o *~
+	$(RM) *.o *~ *.f
--- a/src/misc1/fiolib/fcpack.g
+++ b/src/misc1/fiolib/fcpack.g
@@ -234,3 +234,4 @@
       END IF
 
       RETURN
+      END
