Index: src/org/armedbear/lisp/getpid.lisp
===================================================================
--- src/org/armedbear/lisp/getpid.lisp	(revision 0)
+++ src/org/armedbear/lisp/getpid.lisp	(revision 0)
@@ -0,0 +1,11 @@
+;;;; getpid.lisp
+
+;;; The shell script `abcl.in' contains some magic to include ABCL's
+;;; PID as a system property.
+
+(defun getpid ()
+  "Returns the id of the process executing ABCL, or NIL if not
+available (e.g. on Windows.)"
+  (let ((pid-string (java:jstatic  "getProperty" "java.lang.System" "pid")))
+    (when pid-string
+      (parse-integer pid-string))))
\ No newline at end of file
Index: src/org/armedbear/lisp/compile-system.lisp
===================================================================
--- src/org/armedbear/lisp/compile-system.lisp	(revision 12512)
+++ src/org/armedbear/lisp/compile-system.lisp	(working copy)
@@ -263,7 +263,8 @@
                            "with-package-iterator.lisp"
                            "with-slots.lisp"
                            "with-standard-io-syntax.lisp"
-                           "write-sequence.lisp")))
+                           "write-sequence.lisp"
+                           "getpid.lisp")))
     t))
 
 (defun compile-system (&key quit (zip t) output-path)
Index: src/org/armedbear/lisp/autoloads.lisp
===================================================================
--- src/org/armedbear/lisp/autoloads.lisp	(revision 12512)
+++ src/org/armedbear/lisp/autoloads.lisp	(working copy)
@@ -206,6 +206,9 @@
 (autoload 'describe)
 (autoload 'disassemble)
 
+(autoload 'getpid "getpid")
+(export 'getpid "SYSTEM")
+
 (in-package "MOP")
 (export '(class-precedence-list class-slots slot-definition-allocation 
 	  slot-definition-initargs slot-definition-initform
Index: abcl.in
===================================================================
--- abcl.in	(revision 12512)
+++ abcl.in	(working copy)
@@ -20,6 +20,7 @@
 # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
 
 exec @JAVA@ @ABCL_JAVA_OPTIONS@ \
+  -Dpid=$$ \
   -cp  @ABCL_CLASSPATH@ \
   org.armedbear.lisp.Main \
   "$@"