--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/CallChain.st	Thu Mar 09 00:41:17 1995 +0100
@@ -0,0 +1,54 @@
+'From Smalltalk/X, Version:2.10.4 on 8-mar-1995 at 15:00:52'!
+
+Object subclass:#CallChain
+	 instanceVariableNames:'receiver selector class isBlock rest'
+	 classVariableNames:''
+	 poolDictionaries:''
+	 category:'System-Profiler'
+!
+
+!CallChain methodsFor:'accessing'!
+
+rest:r
+    rest := r.
+!
+
+rest
+    ^ rest
+!
+
+selector
+    ^ selector
+!
+
+methodClass
+    ^ class
+!
+
+receiver:r selector:s class:cls 
+    receiver := r.
+    selector := s.
+    class := cls.
+    isBlock := false.
+!
+
+isBlock 
+    ^ isBlock
+!
+
+isBlock:aBoolean 
+    isBlock := aBoolean.
+!
+
+receiver
+    ^ receiver
+! !
+
+!CallChain methodsFor:'comparing'!
+
+= someInfo
+    receiver == someInfo receiver ifFalse:[^ false].
+    selector == someInfo selector ifFalse:[^ false].
+    ^ class == someInfo methodClass
+! !
+