diff --git a/Mac/Modules/macfsmodule.c b/Mac/Modules/macfsmodule.c
index c694c66..2183685 100644
--- a/Mac/Modules/macfsmodule.c
+++ b/Mac/Modules/macfsmodule.c
@@ -1,6 +1,6 @@
 /***********************************************************
-Copyright 1991, 1992, 1993, 1994 by Stichting Mathematisch Centrum,
-Amsterdam, The Netherlands.
+Copyright 1991-1995 by Stichting Mathematisch Centrum, Amsterdam,
+The Netherlands.
 
                         All Rights Reserved
 
@@ -63,6 +63,9 @@
 
 #define is_mfssobject(v)		((v)->ob_type == &Mfsstype)
 
+
+mfssobject *newmfssobject(FSSpec *fss); /* Forward */
+
 /* ---------------------------------------------------------------- */
 
 static object *
@@ -134,9 +137,9 @@
 }
 
 static struct methodlist mfsa_methods[] = {
-	{"Resolve",	mfsa_Resolve,	1},
-	{"GetInfo",	mfsa_GetInfo,	1},
-	{"Update",	mfsa_Update,	1},
+	{"Resolve",	(method)mfsa_Resolve,	1},
+	{"GetInfo",	(method)mfsa_GetInfo,	1},
+	{"Update",	(method)mfsa_Update,	1},
  
 	{NULL,		NULL}		/* sentinel */
 };
@@ -286,10 +289,10 @@
 }
 
 static struct methodlist mfss_methods[] = {
-	{"as_pathname",		mfss_as_pathname,			1},
-	{"as_tuple",		mfss_as_tuple,				1},
-	{"NewAlias",		mfss_NewAlias,				1},
-	{"NewAliasMinimal",	mfss_NewAliasMinimal,		1},
+	{"as_pathname",		(method)mfss_as_pathname,			1},
+	{"as_tuple",		(method)mfss_as_tuple,				1},
+	{"NewAlias",		(method)mfss_NewAlias,				1},
+	{"NewAliasMinimal",	(method)mfss_NewAliasMinimal,		1},
  
 	{NULL,			NULL}		/* sentinel */
 };