Index: /trunk/source/lisp-kernel/pmcl-kernel.c
===================================================================
--- /trunk/source/lisp-kernel/pmcl-kernel.c	(revision 14231)
+++ /trunk/source/lisp-kernel/pmcl-kernel.c	(revision 14232)
@@ -830,16 +830,12 @@
 initial_stack_bottom()
 {
-#ifndef WINDOWS
-  extern char **environ;
-  char *p = *environ;
-  while (*p) {
-    p += (1+strlen(p));
-  }
-  return (BytePtr)((((natural) p) +4095) & ~4095);
-#endif
-#ifdef WINDOWS
-  return (BytePtr)((current_stack_pointer() + 4095) & ~ 4095);
-#endif
-}
+  extern void os_get_current_thread_stack_bounds(void **, natural*);
+  void *stack_bottom;
+  natural stack_size;
+  
+  os_get_current_thread_stack_bounds(&stack_bottom, &stack_size);
+  return (BytePtr)stack_bottom;
+}
+