diff --git a/pdcurses/insch.c b/pdcurses/insch.c
index 5b8dd011..4d2ce19d 100644
--- a/pdcurses/insch.c
+++ b/pdcurses/insch.c
@@ -17,13 +17,14 @@
 
 #define	CURSES_LIBRARY 1
 #include <curses.h>
+#include <string.h>
 
 /* undefine any macros for functions defined in this module */
 #undef insch
 #undef mvinsch
 #undef mvwinsch
 
-RCSID("$Id: insch.c,v 1.24 2006/08/20 21:51:32 wmcbrine Exp $");
+RCSID("$Id: insch.c,v 1.25 2006/08/21 17:49:27 wmcbrine Exp $");
 
 /*man-start**************************************************************
 
@@ -35,6 +36,8 @@ RCSID("$Id: insch.c,v 1.24 2006/08/20 21:51:32 wmcbrine Exp $");
 	int mvinsch(int y, int x, chtype ch);
 	int mvwinsch(WINDOW *win, int y, int x, chtype ch);
 
+	int PDC_chins(WINDOW* win, chtype c, bool xlat);
+
   X/Open Description:
 	The routine insch() inserts the character ch into the default
 	window at the current cursor position and the window cursor is
@@ -88,6 +91,12 @@ RCSID("$Id: insch.c,v 1.24 2006/08/20 21:51:32 wmcbrine Exp $");
 	Depending upon the state of the raw character output, 7- or
 	8-bit characters will be output.
 
+	PDC_chins() provides the basic functionality for [mv][w]insch().  
+	The xlat flag indicates whether or not to perform normal 
+	character translation. If not, then the character is output as 
+	is. The 'xlat' flag is TRUE for the normal curses routines. This 
+	function returns OK on success and ERR on error.
+
   X/Open Return Value:
 	All functions return OK on success and ERR on error.
 
@@ -97,9 +106,44 @@ RCSID("$Id: insch.c,v 1.24 2006/08/20 21:51:32 wmcbrine Exp $");
 	winsch					Y	Y	Y
 	mvinsch					Y	Y	Y
 	mvwinsch				Y	Y	Y
+	PDC_chins				-	-	-
 
 **man-end****************************************************************/
 
+int PDC_chins(WINDOW *win, chtype c, bool xlat)
+{
+	int x, y, maxx, offset;
+	chtype *temp1;
+	char ch = (c & A_CHARTEXT);
+
+	PDC_LOG(("PDC_chins() - called: win=%x ch=%x "
+		"(char=%c attr=0x%x) xlat=%d\n", win, ch,
+		ch & A_CHARTEXT, ch & A_ATTRIBUTES, xlat));
+
+	if (win == (WINDOW *)NULL)
+		return ERR;
+
+	x = win->_curx;
+	y = win->_cury;
+	maxx = win->_maxx;
+	offset = 1;
+	temp1 = &win->_y[y][x];
+
+	if ((ch < ' ') && xlat)
+		offset++;
+
+	memmove(temp1 + offset, temp1, (maxx - x - offset) * sizeof(chtype));
+
+	win->_lastch[y] = maxx - 1;
+
+	if ((win->_firstch[y] == _NO_CHANGE) || (win->_firstch[y] > x))
+		win->_firstch[y] = x;
+
+	/* PDC_chadd() fixes CTRL-chars too */
+
+	return PDC_chadd(win, c, xlat, FALSE);
+}
+
 int insch(chtype ch)
 {
 	PDC_LOG(("insch() - called\n"));
diff --git a/pdcurses/pdcwin.c b/pdcurses/pdcwin.c
index 8cc74bc0..b2fec7c3 100644
--- a/pdcurses/pdcwin.c
+++ b/pdcurses/pdcwin.c
@@ -18,9 +18,8 @@
 #define CURSES_LIBRARY 1
 #include <curses.h>
 #include <stdlib.h>
-#include <string.h>
 
-RCSID("$Id: pdcwin.c,v 1.51 2006/08/21 16:42:39 wmcbrine Exp $");
+RCSID("$Id: pdcwin.c,v 1.52 2006/08/21 17:49:27 wmcbrine Exp $");
 
 /*man-start**************************************************************
 
@@ -395,62 +394,3 @@ int PDC_chadd(WINDOW *win, chtype ch, bool xlat, bool advance)
 
 	return OK;
 }
-
-/*man-start**************************************************************
-
-  PDC_chins()  - Low-level insert character in window
-
-  PDCurses Description:
-	This is a private PDCurses routine.
-
-	This routine provides the basic functionality for the X/Open
-	[mv][w]insch() routines.  The xlat flag indicates that normal
-	character translation is performed or not.  If not, then the
-	character is output as is.
-
-	The 'xlat' flag is TRUE for the normal curses routines.
-
-  PDCurses Return Value:
-	This function returns OK on success and ERR on error.
-
-  PDCurses Errors:
-	It is an error to call this function with a NULL window pointer.
-
-  Portability:
-	PDCurses  int PDC_chins(WINDOW* win, chtype c, bool xlat);
-
-**man-end****************************************************************/
-
-int PDC_chins(WINDOW *win, chtype c, bool xlat)
-{
-	int x, y, maxx, offset;
-	chtype *temp1;
-	char ch = (c & A_CHARTEXT);
-
-	PDC_LOG(("PDC_chins() - called: win=%x ch=%x "
-		"(char=%c attr=0x%x) xlat=%d\n", win, ch,
-		ch & A_CHARTEXT, ch & A_ATTRIBUTES, xlat));
-
-	if (win == (WINDOW *)NULL)
-		return ERR;
-
-	x = win->_curx;
-	y = win->_cury;
-	maxx = win->_maxx;
-	offset = 1;
-	temp1 = &win->_y[y][x];
-
-	if ((ch < ' ') && xlat)
-		offset++;
-
-	memmove(temp1 + offset, temp1, (maxx - x - offset) * sizeof(chtype));
-
-	win->_lastch[y] = maxx - 1;
-
-	if ((win->_firstch[y] == _NO_CHANGE) || (win->_firstch[y] > x))
-		win->_firstch[y] = x;
-
-	/* PDC_chadd() fixes CTRL-chars too */
-
-	return PDC_chadd(win, c, xlat, FALSE);
-}