--- 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!