Index: openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl,v
diff -u -r1.27 -r1.28
--- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	19 Jun 2008 08:43:34 -0000	1.27
+++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	6 Sep 2008 13:01:39 -0000	1.28
@@ -225,19 +225,33 @@
 
 }
 
+namespace eval ::xo {
+  # 
+  # Make reporting back of the version numbers of the most important 
+  # nvolved components easier.
+  #
+  proc report_version_numbers {{pkg_list {acs-kernel xotcl-core xotcl-request-monitor xowiki s5 xoportal xowf}}} {
+    append _ "Database: "
+    if {[db_driverkey {}] eq "postgresql"} {
+      append _ [db_string dbqd.null.get_version {select version() from dual}] \n
+    } else {
+      append _ [db_driverkey {}]\n
+    }
+    append _ "Server:   [ns_info patchlevel] ([ns_info name])\n"
+    append _ "Tcl:      $::tcl_patchLevel\n"
+    append _ "XOTcl:    $::xotcl::version$::xotcl::patchlevel\n"
+    append _ "Tdom:     [package req tdom]\n"
+    append _ "Tcllib: \n"
+    append _ [exec sh -c "ls -ld [ns_info home]/lib/tcll*"] \n\n
+    foreach pk $pkg_list {
+      if {[apm_package_installed_p $pk]} {
+        append _ "[format %-22s $pk:] " [apm_version_get -package_key $pk -array ""; set x "$(version_name), $(release_date)"] \n
+      }
+    }
+    return $_
+  }
+}
 
-# ::xotcl::Class instproc import {class pattern} {
-#   namespace eval [self] [list \
-#   namespace import [list import [$class self]]::$pattern;
-#     my log "--namespace [list import [$class self]]::$pattern"
-#   ]
-# }
-
-# ::xotcl::Class instproc export args {
-#   my log "--namespace eval [self] {eval namespace export $args}"
-#   namespace eval [self] [list eval namespace export $args]
-# }
-
 #ns_log notice "--T [info command ::ttrace::isenabled]"
 # tell ttrace to put these to the blueprint
 #if {[info command ::ttrace::isenabled] ne "" && [::ttrace::isenabled]} {
@@ -354,6 +368,7 @@
     array unset ::xo::cleanup
     #ns_log notice "*** end of cleanup"
   }
+
 }
 
 #ns_log notice "*** FREECONN? [ns_ictl gettraces freeconn]"