diff -Naurp Curses-1.06.old/Curses.c Curses-1.06/Curses.c
--- Curses-1.06.old/Curses.c	Wed Jul 25 13:10:38 2001
+++ Curses-1.06/Curses.c	Wed Aug 28 17:00:40 2002
@@ -272,7 +272,7 @@ c_sv2window(sv, argnum)
 SV *sv;
 int argnum;
 {
-    if (Perl_sv_isa(sv, "Curses::Window")) {
+    if (sv_isa( sv, "Curses::Window")) {
       WINDOW *ret = (WINDOW *)SvIV((SV*)SvRV(sv));
       return ret;
     }
diff -Naurp Curses-1.06.old/CursesFun.c Curses-1.06/CursesFun.c
--- Curses-1.06.old/CursesFun.c	Wed Jul 25 14:09:35 2001
+++ Curses-1.06/CursesFun.c	Wed Aug 28 17:03:28 2002
@@ -1276,8 +1276,8 @@ XS(XS_Curses_newterm)
     c_exactargs("newterm", items, 3);
     {
 	char *	type	= ST(0) != &PL_sv_undef ? (char *)SvPV(ST(0),PL_na) : NULL;
-	FILE *	outfd	= IoIFP(sv_2io(ST(1)));
-	FILE *	infd	= IoIFP(sv_2io(ST(2)));
+	FILE *	outfd	= PerlIO_findFILE(IoIFP(sv_2io(ST(1))));
+	FILE *	infd	= PerlIO_findFILE(IoIFP(sv_2io(ST(2))));
 	SCREEN *	ret	= newterm(type, outfd, infd);
 	
 	ST(0) = sv_newmortal();
@@ -3450,7 +3450,7 @@ XS(XS_Curses_putwin)
     c_exactargs("putwin", items, 2);
     {
 	WINDOW *win	= c_sv2window(ST(0), 0);
-	FILE *	filep	= IoIFP(sv_2io(ST(1)));
+	FILE *	filep	= PerlIO_findFILE(IoIFP(sv_2io(ST(1))));
 	int	ret	= putwin(win, filep);
 	
 	ST(0) = sv_newmortal();
@@ -3469,7 +3469,7 @@ XS(XS_Curses_getwin)
 #ifdef C_GETWIN
     c_exactargs("getwin", items, 1);
     {
-	FILE *	filep	= IoIFP(sv_2io(ST(0)));
+	FILE *	filep	= PerlIO_findFILE(IoIFP(sv_2io(ST(0))));
 	WINDOW *	ret	= getwin(filep);
 	
 	ST(0) = sv_newmortal();