diff --git a/cpukit/ChangeLog b/cpukit/ChangeLog
index b8eddc3371..163ddce216 100644
--- a/cpukit/ChangeLog
+++ b/cpukit/ChangeLog
@@ -1,5 +1,7 @@
 2007-03-28	Ralf Corsépius <ralf.corsepius@rtems.org>
 
+	* libnetworking/rtems/rtems_glue.c: Cast to intptr_t instead of
+	"long", because long is not guaranteed to be castable to char*.
 	* libnetworking/netinet/ip_input.c: Eliminate __P().
 	Change "int next" to "int32_t next" for 16bit targets.
 	* libnetworking/netinet/tcp_input.c: Eliminate __P().
diff --git a/cpukit/libnetworking/rtems/rtems_glue.c b/cpukit/libnetworking/rtems/rtems_glue.c
index 5ccfa75356..1ac5c1cf40 100644
--- a/cpukit/libnetworking/rtems/rtems_glue.c
+++ b/cpukit/libnetworking/rtems/rtems_glue.c
@@ -154,7 +154,7 @@ bsd_init (void)
 		printf ("Can't get network cluster memory.\n");
 		return -1;
 	}
-	p = (char *)(((unsigned long)p + (MCLBYTES-1)) & ~(MCLBYTES-1));
+	p = (char *)(((intptr_t)p + (MCLBYTES-1)) & ~(MCLBYTES-1));
 	mbutl = (struct mbuf *)p;
 	for (i = 0; i < nmbclusters; i++) {
 		((union mcluster *)p)->mcl_next = mclfree;