--- a/ObjectMemory.st	Tue Nov 07 20:07:15 1995 +0100
+++ b/ObjectMemory.st	Tue Nov 07 20:14:41 1995 +0100
@@ -37,7 +37,7 @@
 COPYRIGHT (c) 1992 by Claus Gittinger
 	     All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/ObjectMemory.st,v 1.69 1995-11-07 19:07:15 cg Exp $
+$Header: /cvs/stx/stx/libbasic/ObjectMemory.st,v 1.70 1995-11-07 19:14:41 cg Exp $
 '!
 
 !ObjectMemory class methodsFor:'documentation'!
@@ -58,7 +58,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/ObjectMemory.st,v 1.69 1995-11-07 19:07:15 cg Exp $
+$Header: /cvs/stx/stx/libbasic/ObjectMemory.st,v 1.70 1995-11-07 19:14:41 cg Exp $
 "
 !
 
@@ -1053,7 +1053,7 @@
 	'IRQ-LATENCY: ' infoPrint. rec class infoPrint. ' ' infoPrint. sel infoPrint. ' ---> ' infoPrint. ms infoPrintNL.
     ].
     (InterruptLatencyGoal notNil and:[ms > InterruptLatencyGoal]) ifTrue:[
-	'*** IRQ DEADLINE MISSED: ' errorPrint. 
+	'*** IRQ REALTIME-DEADLINE MISSED: ' errorPrint. 
 	rec class errorPrint. ' ' errorPrint. sel errorPrint. ' ---> ' errorPrint. ms errorPrintNL.
     ].
 
@@ -1089,6 +1089,10 @@
 	MaxInterruptLatency := 0.
 	InterruptLatencyMonitor := self.
     ]
+
+    "
+     ObjectMemory interruptLatencyGoal:50
+    "
 !
 
 maxInterruptLatency