--- a/Process.st	Fri Nov 15 11:39:34 1996 +0100
+++ b/Process.st	Fri Nov 15 11:46:45 1996 +0100
@@ -290,6 +290,18 @@
     "Modified: 8.5.1996 / 10:23:26 / cg"
 ! !
 
+!Process methodsFor:'Compatibility - V''Age'!
+
+queueInterrupt:aBlock
+    "VisualAge compatibility: alias for #interruptWith:
+     arrange for the receiver process to be interrupted and
+     evaluate aBlock in its interrupt handler."
+
+    ^ self interruptWith:aBlock
+
+    "Created: 15.11.1996 / 11:41:06 / cg"
+! !
+
 !Process methodsFor:'accessing'!
 
 beGroupLeader
@@ -1211,6 +1223,6 @@
 !Process class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Process.st,v 1.67 1996-11-08 22:07:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Process.st,v 1.68 1996-11-15 10:46:45 cg Exp $'
 ! !
 Process initialize!