diff --git a/src/Xw/Xw_Cextern.hxx b/src/Xw/Xw_Cextern.hxx
index db032f3450..5e1f5a67c5 100755
--- a/src/Xw/Xw_Cextern.hxx
+++ b/src/Xw/Xw_Cextern.hxx
@@ -1960,11 +1960,4 @@ extern "C" {
 #endif
         );
 
-        XW_STATUS Xw_put_env(
-#ifdef XW_PROTOTYPE         
-                char* symbol,
-                char* value
-#endif
-        );
-
 #endif /*XW_CEXTERN*/
diff --git a/src/Xw/Xw_get_env.cxx b/src/Xw/Xw_get_env.cxx
index bda7e58849..22b7c54020 100755
--- a/src/Xw/Xw_get_env.cxx
+++ b/src/Xw/Xw_get_env.cxx
@@ -58,29 +58,3 @@ if( Xw_get_trace() > 1 ) {
 
 	return (XW_SUCCESS);
 }
-
-#ifdef XW_PROTOTYPE
-XW_STATUS Xw_put_env (char* symbol,char* value)
-#else
-XW_STATUS Xw_put_env (symbol,value)
-char *symbol,*value ;
-#endif /*XW_PROTOTYPE*/
-{
-char *string ;
-
-	if( !strlen(symbol) ) return (XW_ERROR) ;
-
-	string = (char*) malloc(strlen(symbol) + strlen(value) + 4) ;
-
-	sprintf(string,"%s=%s",symbol,value) ;
-
-	if( putenv(string) ) return (XW_ERROR) ;
-
-#ifdef  TRACE_PUT_ENV
-if( Xw_get_trace() > 1 ) {
-    printf (" Xw_put_env('%s','%s')\n",symbol,value) ;
-}
-#endif
-
-	return (XW_SUCCESS);
-}