--- a/Object.st	Sun Oct 20 17:51:35 1996 +0200
+++ b/Object.st	Sun Oct 20 17:56:32 1996 +0200
@@ -3078,7 +3078,9 @@
 userInterrupt
     "{ Pragma: +optSpace }"
 
-    "user (^c) interrupt - enter debugger"
+    "user (^c) interrupt.
+     This is typically sent by the VM, when a ctrl-C is typed at the
+     controlling tty (i.e. in the xterm)."
 
     UserInterruptSignal raise
 !
@@ -3087,8 +3089,11 @@
     "{ Pragma: +optSpace }"
 
     "user (^c) interrupt - enter debugger, but show aContext
-     as top-context. This is used to hide any intermediate scheduler
-     contexts, in case of an interrupted process."
+     as top-context. 
+     This is used to hide any intermediate scheduler contexts, 
+     in case of an interrupted process. Typically, this is sent by
+     the WindowGroup, when a keyboardEvent for the ctrl-C key is
+     processed."
 
     UserInterruptSignal raiseIn:aContext
 
@@ -5300,6 +5305,6 @@
 !Object class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.141 1996-10-20 12:07:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.142 1996-10-20 15:56:32 cg Exp $'
 ! !
 Object initialize!