--- a/Context.st	Sat Feb 05 13:09:31 1994 +0100
+++ b/Context.st	Sat Feb 05 13:19:13 1994 +0100
@@ -33,7 +33,7 @@
 
 Warning: layout and size known by the compiler and runtime system - do not change.
 
-$Header: /cvs/stx/stx/libbasic/Context.st,v 1.10 1994-01-16 03:40:17 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Context.st,v 1.11 1994-02-05 12:19:13 claus Exp $
 '!
 
 !Context class methodsFor:'queries'!
@@ -329,72 +329,6 @@
     self selector printOn:aStream
 !
 
-XXfullPrintOn:aStream
-    "obsolete"
-    "append a printed description of the receiver, containing
-     the contexts receiver, selector and args onto aStream."
-
-    aStream nextPutAll:self receiverPrintString.
-    aStream space.
-    aStream nextPutAll:selector printString.
-    self size ~~ 0 ifTrue: [
-        aStream space.
-        aStream nextPutAll:self argsPrintString
-    ]
-!
-
-XXdebugPrint
-    "obsolete"
-
-    | n "{ Class: SmallInteger }" |
-
-    'context ' print. self address printNewline.
-    'receiver: ' print. receiver address printNewline.
-    'selector: ' print. selector address printNewline.
-    n := self size.
-    n ~~ 0 ifTrue:[
-        1 to:n do:[:index |
-            'arg ' print. index print. '   : ' print.
-             (self at:index) address printNewline
-        ]
-    ].
-    '' printNewline
-!
-
-XXdebugPrintAll
-    "obsolete"
-
-    |context|
-    context := self.
-    [context notNil] whileTrue:[
-        context debugPrint.
-        context := context sender
-    ]
-!
-
-XXfullPrintString
-    "obsolete"
-
-    |aString|
-
-    aString := self receiverPrintString , ' ' , selector printString.
-    self size ~~ 0 ifTrue: [
-        aString := aString , ' ' , (self argsPrintString)
-    ].
-    ^ aString
-!
-
-XXprintAll
-    "obsolete"
-
-    |context|
-    context := self.
-    [context notNil] whileTrue: [
-        context print.
-        context := context sender
-    ]
-!
-
 fullPrintAll
     "print a full walkback starting at the receiver
      - for MiniDebugger only"