--- a/ObjMem.st	Tue Jun 18 17:14:55 1996 +0200
+++ b/ObjMem.st	Thu Jun 20 00:29:13 1996 +0200
@@ -10,6 +10,8 @@
  hereby transferred.
 "
 
+'From Smalltalk/X, Version:2.10.9 on 18-jun-1996 at 15:31:16'                   !
+
 Object subclass:#ObjectMemory
 	instanceVariableNames:''
 	classVariableNames:'InternalErrorHandler UserInterruptHandler TimerInterruptHandler
@@ -2407,18 +2409,14 @@
      DEMO Example."
 
     ms > MaxInterruptLatency ifTrue:[
-	MaxInterruptLatency := ms.
-	'IRQ-LATENCY: ' infoPrint. rec class infoPrint. ' ' infoPrint. sel infoPrint. '(' infoPrint. vmActivity infoPrint . ') ---> ' infoPrint. ms infoPrintNL.
+        MaxInterruptLatency := ms.
+        'IRQ-LATENCY: ' infoPrint. cls infoPrint. ' ' infoPrint. sel infoPrint. '(' infoPrint. vmActivity infoPrint . ') ---> ' infoPrint. ms infoPrintNL.
     ].
     (InterruptLatencyGoal notNil and:[ms > InterruptLatencyGoal]) ifTrue:[
-	'*** IRQ REALTIME-DEADLINE MISSED: ' errorPrint. 
-	rec isBehavior ifTrue:[
-	    rec name errorPrint. 'class' errorPrint.
-	] ifFalse:[     
-	    rec class errorPrint
-	].
-	' ' errorPrint. sel errorPrint. '(' errorPrint. vmActivity errorPrint . ') ---> ' errorPrint. 
-	ms errorPrintNL.
+        '*** IRQ REALTIME-DEADLINE MISSED: ' errorPrint. 
+        cls errorPrint.
+        ' ' errorPrint. sel errorPrint. '(' errorPrint. vmActivity errorPrint . ') ---> ' errorPrint. 
+        ms errorPrintNL.
     ].
 
     "to enable the demo handler:
@@ -2434,6 +2432,7 @@
 
     "Created: 7.11.1995 / 21:05:50 / cg"
     "Modified: 7.11.1995 / 21:13:33 / cg"
+    "Modified: 18.6.1996 / 14:15:52 / stefan"
 !
 
 interruptLatencyGoal:millis
@@ -3494,6 +3493,6 @@
 !ObjectMemory class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ObjMem.st,v 1.104 1996-05-20 08:42:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ObjMem.st,v 1.105 1996-06-19 22:29:07 stefan Exp $'
 ! !
 ObjectMemory initialize!