--- a/MiniDebugger.st	Sat Oct 01 17:01:12 2016 +0200
+++ b/MiniDebugger.st	Sat Oct 01 17:04:42 2016 +0200
@@ -261,6 +261,10 @@
 
     |c leaveCmd stillHere yesNo|
 
+    Display notNil ifTrue:[
+        Display ungrabKeyboard; ungrabPointer.
+    ].
+    
     enteringContext := dot := aContext.
     nesting := 0.
     c := aContext.
@@ -504,20 +508,24 @@
     aContext argumentCount ~~ 0 ifTrue: [
         ' ' lowLevelErrorPrint. aContext argsDisplayString lowLevelErrorPrint
     ].
-    ' [' lowLevelErrorPrint. aContext lineNumber printString lowLevelErrorPrint. ']' lowLevelErrorPrintCR
+    ' [' lowLevelErrorPrint. 
+    aContext lineNumber printString lowLevelErrorPrint. 
+    ']' lowLevelErrorPrintCR
 !
 
 printDot
     self printContext:dot.
-    '  receiver: ' lowLevelErrorPrint. dot receiver lowLevelErrorPrintCR.
+    '  receiver: ' lowLevelErrorPrint. dot receiver printString lowLevelErrorPrintCR.
     '  selector: ' lowLevelErrorPrint. dot selector lowLevelErrorPrintCR.
     '  args: ' lowLevelErrorPrintCR.
     dot args keysAndValuesDo:[:idx :eachArg |
-        '    ' lowLevelErrorPrint. idx lowLevelErrorPrint. ': ' lowLevelErrorPrint. eachArg lowLevelErrorPrintCR.
+        '    ' lowLevelErrorPrint. idx  printString lowLevelErrorPrint. 
+        ': ' lowLevelErrorPrint. eachArg printString lowLevelErrorPrintCR.
     ].
     '  vars: ' lowLevelErrorPrintCR.
     dot vars keysAndValuesDo:[:idx :eachVar |
-        '    ' lowLevelErrorPrint. idx lowLevelErrorPrint. ': ' lowLevelErrorPrint. eachVar lowLevelErrorPrintCR.
+        '    ' lowLevelErrorPrint. idx  printString lowLevelErrorPrint. 
+        ': ' lowLevelErrorPrint. eachVar printString lowLevelErrorPrintCR.
     ].
 !
 
@@ -556,7 +564,7 @@
             '   ' lowLevelErrorPrint.
         ].
         (lNr printStringLeftPaddedTo:3) lowLevelErrorPrint. ' ' lowLevelErrorPrint.
-        (src at:lNr) lowLevelErrorPrintCR.
+        (src at:lNr) asString lowLevelErrorPrintCR.
     ]
 !