--- a/DebugView.st Tue Oct 01 10:07:05 2002 +0200
+++ b/DebugView.st Tue Oct 01 10:07:49 2002 +0200
@@ -5218,7 +5218,7 @@
implementorClass size == 0 ifTrue:[
^ cancelAction value "/ cancelled
].
- implementorClass := Smalltalk at:implementorClass asSymbol.
+ implementorClass := Smalltalk classNamed:implementorClass.
implementorClass isNil ifTrue:[
Dialog warn:'No such class'.
^ cancelAction value "/ cancelled
@@ -5805,6 +5805,7 @@
!DebugView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.326 2002-08-07 12:58:57 penk Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.327 2002-10-01 08:07:49 cg Exp $'
! !
+
DebugView initialize!