--- a/ObjectMemory.st	Fri Jul 31 16:41:35 1998 +0200
+++ b/ObjectMemory.st	Fri Jul 31 16:43:00 1998 +0200
@@ -1751,6 +1751,110 @@
 %}
 ! !
 
+!ObjectMemory class methodsFor:'debugging ST/X'!
+
+printPolyCaches
+    "{ Pragma: +optSpace }"
+
+    "dump poly caches.
+     WARNING: this method is for debugging only
+              it will be removed without notice"
+%{
+    __dumpILCCaches();
+%}
+
+    "
+     ObjectMemory printPolyCaches
+    "
+!
+
+printStackBacktrace
+    "{ Pragma: +optSpace }"
+
+    "print a stack backtrace - then continue.
+     (You may turn off the stack print with debugPrinting:false)
+     WARNING: this method is for debugging only 
+              it will be removed without notice"
+
+%{
+    __printStack(__context);
+%}
+
+    "
+     ObjectMemory printStackBacktrace
+    "
+
+
+!
+
+printStackBacktraceFrom:aContext
+    "{ Pragma: +optSpace }"
+
+    "print a stack backtrace - then continue.
+     (You may turn off the stack print with debugPrinting:false)
+     WARNING: this method is for debugging only 
+              it will be removed without notice"
+
+%{
+    __printStack(aContext);
+%}
+
+    "
+     ObjectMemory printStackBacktraceFrom:thisContext sender sender
+    "
+
+
+!
+
+printSymbols
+    "{ Pragma: +optSpace }"
+
+    "dump the internal symbol table.
+     WARNING: this method is for debugging only
+              it will be removed without notice"
+%{
+#ifdef DEBUG
+    __dumpSymbols();
+#endif
+%}
+
+    "
+     ObjectMemory printSymbols
+    "
+!
+
+sendTraceOff
+    "{ Pragma: +optSpace }"
+
+    "turns tracing of message sends off.
+     WARNING: this method is for debugging only 
+              it may be removed without notice"
+
+%{  /* NOCONTEXT */
+    __setMessageTrace__(0);
+%}
+
+    "
+     ObjectMemory sendTraceOff
+    "
+!
+
+sendTraceOn
+    "{ Pragma: +optSpace }"
+
+    "turns tracing of message sends on.
+     WARNING: this method is for debugging only 
+              it may be removed without notice"
+
+%{  /* NOCONTEXT */
+    __setMessageTrace__(1);
+%}
+
+    "
+     ObjectMemory sendTraceOn
+    "
+! !
+
 !ObjectMemory class methodsFor:'dependents access'!
 
 dependents
@@ -4220,7 +4324,7 @@
 
 ! !
 
-!ObjectMemory class methodsFor:'system management'!
+!ObjectMemory class methodsFor:'system configuration queries'!
 
 allBinaryModulesDo:aBlock
     "internal private method - walk over all known binary
@@ -4360,6 +4464,22 @@
     "Modified: 31.10.1996 / 13:58:44 / cg"
 !
 
+getVMIdentificationStrings
+    "return a collection of release strings giving information
+     about the running VM. This is for configuration management only.
+     Do not depend on the information returned - this may
+     change or vanish without notice."
+
+%{
+    RETURN (__getVMReleaseStrings());
+%}
+    "
+     ObjectMemory getVMIdentificationStrings
+    "
+! !
+
+!ObjectMemory class methodsFor:'system management'!
+
 imageBaseName
     "return a reasonable filename to use as baseName (i.e. without extension).
      This is the filename of the current image (without '.img') or,
@@ -4664,6 +4784,6 @@
 !ObjectMemory class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ObjectMemory.st,v 1.163 1998-07-16 15:18:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ObjectMemory.st,v 1.164 1998-07-31 14:43:00 cg Exp $'
 ! !
 ObjectMemory initialize!