--- a/MiniInspector.st	Thu Jul 24 12:22:26 1997 +0200
+++ b/MiniInspector.st	Thu Jul 24 13:38:43 1997 +0200
@@ -62,6 +62,9 @@
     [done] whileFalse:[
         valid := false.
         cmd := self getCommand.
+        cmd isNil ifTrue:[   "/ EOF -> quit
+            cmd := $q
+        ].
         (cmd >= $0 and:[cmd <= $9]) ifTrue:[
             valid := true.
             self inspectInstvar:(cmd asciiValue - $0 asciiValue) of:inspectedObject
@@ -85,7 +88,7 @@
     ].
     ^ cmd
 
-    "Modified: 20.5.1996 / 10:23:31 / cg"
+    "Modified: 24.7.1997 / 10:00:24 / cg"
 !
 
 enter
@@ -146,5 +149,5 @@
 !MiniInspector class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/MiniInspector.st,v 1.18 1996-05-20 08:39:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/MiniInspector.st,v 1.19 1997-07-24 11:38:43 cg Exp $'
 ! !