Index: /trunk/source/lisp-kernel/lisp-debug.c
===================================================================
--- /trunk/source/lisp-kernel/lisp-debug.c	(revision 14345)
+++ /trunk/source/lisp-kernel/lisp-debug.c	(revision 14346)
@@ -46,4 +46,13 @@
 } debug_command_return;
 
+#ifdef SVN_REVISION
+#define xstr(s) str(s)
+#define str(s) #s
+char *kernel_svn_revision = xstr(SVN_REVISION);
+#undef xstr
+#undef str
+#else
+char *kernel_svn_revision = "unknown";
+#endif
 
 Boolean
@@ -855,4 +864,14 @@
 
 debug_command_return
+debug_show_lisp_version(ExceptionInformation *xp, siginfo_t *info, int arg)
+{
+  extern void *plsym(ExceptionInformation *,char*);
+
+  fprintf(dbgout, "Lisp kernel svn revision: %s\n", kernel_svn_revision);
+  plsym(xp, "*OPENMCL-VERSION*");
+  return debug_continue;
+}
+
+debug_command_return
 debug_thread_info(ExceptionInformation *xp, siginfo_t *info, int arg)
 {
@@ -1259,4 +1278,9 @@
    NULL,
    'K'},
+  {debug_show_lisp_version,
+   "Show Subversion revision information",
+   0,
+   NULL,
+   'V'},
   {debug_help,
    "Show this help",