Index: /trunk/ccl/lisp-kernel/pmcl-kernel.c
===================================================================
--- /trunk/ccl/lisp-kernel/pmcl-kernel.c	(revision 6141)
+++ /trunk/ccl/lisp-kernel/pmcl-kernel.c	(revision 6142)
@@ -579,4 +579,16 @@
 #endif
 
+void
+raise_limit()
+{
+#ifdef RLIMIT_AS
+  struct rlimit r;
+  if (getrlimit(RLIMIT_AS, &r) == 0) {
+    r.rlim_cur = r.rlim_max;
+    setrlimit(RLIMIT_AS, &r);
+    /* Could limit heaplimit to rlim_max here if smaller? */
+  }
+#endif
+} 
 
 
@@ -639,4 +651,5 @@
   fixed_map_ok = true;
 #endif
+  raise_limit();
   start = mmap((void *)want,
 	       totalsize + heap_segment_size,