diff --git a/src/core/c-port.c b/src/core/c-port.c
index 985728e06e..827e1dd37b 100644
--- a/src/core/c-port.c
+++ b/src/core/c-port.c
@@ -113,23 +113,6 @@
 }
 
 
-/***********************************************************************
-**
-*/	void Free_Port_State(REBSER *port)
-/*
-***********************************************************************/
-{
-	REBVAL *state = BLK_SKIP(port, STD_PORT_STATE);
-
-	// ??? check that this is the binary we think it is? !!!
-
-	if (IS_BINARY(state)) {
-		Loose_Series(VAL_SERIES(state));
-		VAL_SET(state, REB_NONE);
-	}
-}
-
-
 /***********************************************************************
 **
 */	REBFLG Pending_Port(REBVAL *port)
diff --git a/src/core/p-file.c b/src/core/p-file.c
index 8aabd41bec..7ade5aa11e 100644
--- a/src/core/p-file.c
+++ b/src/core/p-file.c
@@ -353,7 +353,6 @@ REBINT Mode_Syms[] = {
 		if (opened) {
 			OS_DO_DEVICE(file, RDC_CLOSE);
 			Cleanup_File(file);
-			Free_Port_State(port);
 		}
 
 		if (file->error) Trap_Port(RE_READ_ERROR, port, file->error);
@@ -399,7 +398,6 @@ REBINT Mode_Syms[] = {
 		if (opened) {
 			OS_DO_DEVICE(file, RDC_CLOSE);
 			Cleanup_File(file);
-			Free_Port_State(port);
 		}
 
 		if (file->error) Trap1(RE_WRITE_ERROR, path);
@@ -427,7 +425,6 @@ REBINT Mode_Syms[] = {
 		if (IS_OPEN(file)) {
 			OS_DO_DEVICE(file, RDC_CLOSE);
 			Cleanup_File(file);
-			Free_Port_State(port);
 		}
 		break;
 
diff --git a/src/core/p-net.c b/src/core/p-net.c
index 7fb18d58e5..ccfb280021 100644
--- a/src/core/p-net.c
+++ b/src/core/p-net.c
@@ -272,7 +272,6 @@ enum Transport_Types {
 			OS_DO_DEVICE(sock, RDC_CLOSE);
 			SET_CLOSED(sock);
 		}
-		Free_Port_State(port);
 		break;
 
 	case A_LENGTHQ: