--- a/Context.st	Sun Jan 09 22:25:58 1994 +0100
+++ b/Context.st	Wed Jan 12 20:11:58 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.8 1994-01-09 21:13:01 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Context.st,v 1.9 1994-01-12 19:08:12 claus Exp $
 '!
 
 !Context class methodsFor:'queries'!
@@ -228,13 +228,13 @@
 
 !Context methodsFor:'printing'!
 
-argsPrintString
+argsDisplayString
     |fullString n "{ Class: SmallInteger }" |
 
     fullString := ''.
     n := self nargs.
     1 to:n do:[:index |
-        fullString := fullString , (' ' , (self at:index) printString)
+        fullString := fullString , (' ' , (self at:index) displayString)
     ].
     ^ fullString
 !
@@ -271,7 +271,7 @@
     selector print.
     self size ~~ 0 ifTrue: [
         ' ' print.
-        self argsPrintString print
+        self argsDisplayString print
     ].
     ' [' print. lineNr print. ']' printNewline
 !
@@ -312,7 +312,7 @@
 displayString
     "return a string describing the context - for display in Inspector" 
 
-    ^ self class name , '(' , self receiverPrintString , ' ' , self selector printString, ')'
+    ^ self class name , '(' , self printString , ')'
 !
 
 printOn:aStream