--- a/MiniInspector.st	Thu Feb 08 16:30:53 2001 +0100
+++ b/MiniInspector.st	Thu Feb 08 16:34:06 2001 +0100
@@ -77,6 +77,15 @@
             valid := true.
             inspectedObject displayString printCR
         ].
+	(cmd == $d) ifTrue:[
+	    valid := true.
+	    ObjectMemory dumpObject:inspectedObject
+	].
+	(cmd == $*) ifTrue:[
+	    valid := true.
+	    inspectedObject becomeNil.
+	    ^ cmd. 
+	].
 	(cmd == $I) ifTrue:[
 	    valid := true.
             self interpreterLoopWith:inspectedObject
@@ -88,10 +97,13 @@
 
         valid ifFalse: [
             'valid commands:
+ p     .... print inspected object
+ d     .... VM-dump inspected object
  I     .... interpreter
  i     .... instvars
- p     .... print inspected object
  <Num> .... inspect instvar num (1..)
+
+ *     .... becomeNil and quit (dangerous)
  q     .... quit
 '       errorPrintCR
         ]
@@ -205,5 +217,5 @@
 !MiniInspector class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/MiniInspector.st,v 1.21 2001-02-08 15:30:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/MiniInspector.st,v 1.22 2001-02-08 15:34:06 cg Exp $'
 ! !